Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/Date/Simple/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/Date/Simple/D8.pm |
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