/usr/share/perl5/MooseX/MethodAttributes/Inheritable.pm is in libmoosex-methodattributes-perl 0.31-2.
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 106 107 108 | package MooseX::MethodAttributes::Inheritable;
# ABSTRACT: inheritable code attribute introspection
our $VERSION = '0.31';
#pod =head1 SYNOPSIS
#pod
#pod package BaseClass;
#pod use base qw/MooseX::MethodAttributes::Inheritable/;
#pod
#pod package SubClass;
#pod use base qw/BaseClass/;
#pod
#pod sub foo : Bar {}
#pod
#pod my $attrs = SubClass->meta->get_method('foo')->attributes; # ["Bar"]
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module does the same as C<MooseX::MethodAttributes>, except that classes
#pod inheriting from other classes using it don't need to do anything special to get
#pod their code attributes captured.
#pod
#pod Note that instead of inheriting from this module, you can instead simply
#pod compose (C<with>) the L<MooseX::MethodAttributes::Role::AttrContainer::Inheritable> role.
#pod
#pod =cut
# Ensure trait is registered
use MooseX::MethodAttributes::Role::Meta::Role ();
use Moose;
use namespace::autoclean;
with 'MooseX::MethodAttributes::Role::AttrContainer::Inheritable';
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
MooseX::MethodAttributes::Inheritable - inheritable code attribute introspection
=head1 VERSION
version 0.31
=head1 SYNOPSIS
package BaseClass;
use base qw/MooseX::MethodAttributes::Inheritable/;
package SubClass;
use base qw/BaseClass/;
sub foo : Bar {}
my $attrs = SubClass->meta->get_method('foo')->attributes; # ["Bar"]
=head1 DESCRIPTION
This module does the same as C<MooseX::MethodAttributes>, except that classes
inheriting from other classes using it don't need to do anything special to get
their code attributes captured.
Note that instead of inheriting from this module, you can instead simply
compose (C<with>) the L<MooseX::MethodAttributes::Role::AttrContainer::Inheritable> role.
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-MethodAttributes>
(or L<bug-MooseX-MethodAttributes@rt.cpan.org|mailto:bug-MooseX-MethodAttributes@rt.cpan.org>).
There is also a mailing list available for users of this distribution, at
L<http://lists.perl.org/list/moose.html>.
There is also an irc channel available for users of this distribution, at
irc://irc.perl.org/#moose.
=head1 AUTHORS
=over 4
=item *
Florian Ragwitz <rafl@debian.org>
=item *
Tomas Doran <bobtfish@bobtfish.net>
=back
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2009 by Florian Ragwitz.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|