/usr/share/doc/libclass-std-perl/examples/demo_perlify.pl is in libclass-std-perl 0.013-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 | package Base1;
use Class::Std;
my %foo : ATTR( :init_arg<foo> );
my %bar : ATTR( :init_arg<bar> );
sub foo {}
package Base2;
use Class::Std;
my %baz : ATTR( :set<baz> );
sub foo {}
package Der;
use base qw( Base1 Base2 );
package Other;
use Class::Std;
my %qux : ATTR( :set<qux> );
package main;
my $obj = Der->new({foo=>'foo val', bar=>42});
print $obj->_DUMP();
my $obj2 = Other->new();
print $obj2->_DUMP();
|