/usr/share/perl5/Moose/Autobox/Number.pm is in libmoose-autobox-perl 0.15-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 | package Moose::Autobox::Number;
use Moose::Role;
our $VERSION = '0.15';
with 'Moose::Autobox::Value';
sub to {
return [ $_[0] .. $_[1] ] if $_[0] <= $_[1];
return [ reverse $_[1] .. $_[0] ];
}
1;
__END__
=pod
=head1 NAME
Moose::Autobox::Number - the Number role
=head1 DESCRIPTION
This is a role to describes a Numeric value.
=head1 METHODS
=over 4
=item B<to>
Takes another number as argument and produces an array ranging from
the number the method is called on to the number given as argument. In
some situations, this method intentionally behaves different from the
range operator in perl:
$foo = [ 5 .. 1 ]; # $foo is []
$foo = 5->to(1); # $foo is [ 5, 4, 3, 2, 1 ]
=back
=over 4
=item B<meta>
=back
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
=head1 AUTHOR
Stevan Little E<lt>stevan@iinteractive.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|