/usr/share/doc/libclass-insideout-perl/examples/Animal/Antelope.pm is in libclass-insideout-perl 1.13-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 | package t::Object::Animal::Antelope;
BEGIN {
require t::Object::Animal;
@t::Object::Animal::Antelope::ISA = 't::Object::Animal';
}
use Class::InsideOut qw( property public id );
# superclass is handling new()
Class::InsideOut::options( { privacy => 'private' } );
# should override default options above
property color => my %color, { privacy => 'public' };
# should revert back to defaults
property panicked => my %panicked;
# should override default
public points => my %points;
1;
|