/usr/share/perl5/MooX/Rebuild.pm is in libmoox-buildargs-perl 0.04-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | package MooX::Rebuild;
$MooX::Rebuild::VERSION = '0.04';
=head1 NAME
MooX::Rebuild - Rebuild your Moo objects.
=head1 SYNOPSIS
package Foo;
use Moo;
with 'MooX::Rebuild';
has get_bar => (
is => 'ro',
init_arg => 'bar',
);
my $foo1 = Foo->new( bar => 'lala' );
my $foo2 = $foo1->rebuild();
print $foo2->get_bar(); # lala
=head1 DESCRIPTION
Make copies of Moo objects using the same arguments used to create
the original objects.
This Moo role depends on, and uses, the L<MooX::BuildArgs> role in
order to capture the original arguments used to create an object.
=cut
use Moo::Role;
use strictures 2;
use namespace::clean;
with 'MooX::BuildArgs';
=head1 METHODS
=head2 rebuild
my $clone = $object->rebuild();
my $similar = $object->rebuild( %extra_args );
Creates a new instance in the same class as the source object and
using the same arguments used to make the source object.
=cut
sub rebuild {
my $self = shift;
my $class = ref( $self );
my $args = $class->BUILDARGS( @_ );
$args = {
%{ $self->build_args() },
%$args,
};
return $class->new( $args );
}
1;
__END__
=head1 SEE ALSO
=over
=item *
L<MooX::BuildArgs>
=item *
L<MooX::BuildArgsHooks>
=item *
L<MooX::MethodProxyArgs>
=item *
L<MooX::SingleArg>
=back
=head1 AUTHOR
Aran Clary Deltac <bluefeetE<64>gmail.com>
=head1 CONTRIBUTORS
=over
=item *
Peter Pentchev <roamE<64>ringlet.net>
=back
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|