/usr/share/perl5/accessors/chained.pm is in libaccessors-perl 1.01-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 | =head1 NAME
accessors::chained - create method chaining accessors in caller's package.
=head1 SYNOPSIS
package Foo;
use accessors::chained qw( foo bar baz );
my $obj = bless {}, 'Foo';
# generates chaining accessors:
$obj->foo( 'hello ' )
->bar( 'world' )
->baz( "!\n" );
print $obj->foo, $obj->bar, $obj->baz;
=cut
package accessors::chained;
use strict;
use warnings::register;
use base qw( accessors );
our $VERSION = '1.01';
our $REVISION = (split(/ /, ' $Revision: 1.3 $ '))[2];
# inherit everything for now.
1;
__END__
=head1 DESCRIPTION
The B<accessors::chained> pragma lets you create simple method-chaining
accessors at compile-time.
This module exists for future backwards-compatability - if the default style
of accessor ever changes, method-chaining accessors will still be available
through this pragma.
See L<accessors> for documentation.
=head1 AUTHOR
Steve Purkis <spurkis@cpan.org>
=head1 SEE ALSO
L<accessors>, L<accessors::classic>, L<base>
=cut
|