/usr/lib/perl5/Date/Simple/D8.pm is in libdate-simple-perl 3.03.03-1build2.
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 | package Date::Simple::D8;
use Date::Simple 3;
use base qw/Date::Simple/;
use overload '""' => 'as_d8';
*EXPORT = *Date::Simple::EXPORT;
*EXPORT_OK = *Date::Simple::EXPORT_OK;
*EXPORT_TAGS = *Date::Simple::EXPORT_TAGS;
sub d8 { shift->_d8(@_) }
sub today { shift->_today(@_) }
sub ymd { shift->_ymd(@_) }
1;
=head1 NAME
Date::Simple::D8 - Sub class of Date::Simple with eight digit date style formatting
as default.
=head1 SYNOPSIS
use Date::Simple::D8;
=head1 DESCRIPTION
This module changes the default stringification behaviour of Date::Simple objects to
use the as_d8() method instead.
=item Date::Simple::D8->new ([ARG, ...])
=item date_d8 ([ARG, ...])
Identical to Date::Simple except that uses the D8 style formatting ('%Y%m%d') for
overloaded stringification or when not providing a format argument to the format()
method.
=head1 SEE ALSO
L<Date::Simple> for full documentation.
=cut
|