/usr/share/perl5/DateTime/Format/Natural/Lang/Base.pm is in libdatetime-format-natural-perl 1.04-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 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 | package DateTime::Format::Natural::Lang::Base;
use strict;
use warnings;
our ($VERSION, $AUTOLOAD);
$VERSION = '1.08';
sub __new
{
my $class = shift;
no strict 'refs';
my $obj = {};
$obj->{weekdays} = \%{"${class}::data_weekdays"};
$obj->{weekdays_abbrev} = \%{"${class}::data_weekdays_abbrev"};
$obj->{weekdays_all} = \@{"${class}::data_weekdays_all"};
$obj->{months} = \%{"${class}::data_months"};
$obj->{months_abbrev} = \%{"${class}::data_months_abbrev"};
$obj->{months_all} = \@{"${class}::data_months_all"};
$obj->{conversion} = \%{"${class}::data_conversion"};
$obj->{helpers} = \%{"${class}::data_helpers"};
$obj->{duration} = \%{"${class}::data_duration"};
$obj->{aliases} = \%{"${class}::data_aliases"};
$obj->{rewrite} = \%{"${class}::data_rewrite"};
return bless $obj, $class;
}
AUTOLOAD
{
my ($self, $exp) = @_;
my ($caller, $sub) = $AUTOLOAD =~ /^(.+)::(.+)$/;
if (substr($sub, 0, 2) eq '__') {
$sub =~ s/^__//;
no strict 'refs';
if (defined $exp && length $exp) {
return ${$caller.'::'.$sub}{$exp};
}
else {
return \%{$caller.'::'.$sub};
}
}
}
1;
__END__
=head1 NAME
DateTime::Format::Natural::Lang::Base - Base class for DateTime::Format::Natural::Lang::
=head1 SYNOPSIS
Please see the DateTime::Format::Natural::Lang:: documentation.
=head1 DESCRIPTION
The C<DateTime::Format::Natural::Lang::Base> class defines the core functionality for
C<DateTime::Format::Natural::Lang::> grammar classes.
=head1 SEE ALSO
L<DateTime::Format::Natural>
=head1 AUTHOR
Steven Schubiger <schubiger@cpan.org>
=head1 LICENSE
This program is free software; you may redistribute it and/or
modify it under the same terms as Perl itself.
See L<http://dev.perl.org/licenses/>
=cut
|