/usr/share/perl5/Carton/Package.pm is in carton 1.0.28-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 | package Carton::Package;
use strict;
use Class::Tiny qw( name version pathname );
sub BUILDARGS {
my($class, @args) = @_;
return { name => $args[0], version => $args[1], pathname => $args[2] };
}
sub version_format {
my $self = shift;
defined $self->version ? $self->version : 'undef';
}
1;
|