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/ISO.pm |
package Date::Simple::ISO; use Date::Simple 3; use base qw/Date::Simple/; use overload '""' => 'as_iso'; # sub { $_[0]->as_iso }; *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::ISO - Sub class of Date::Simple =head1 SYNOPSIS use Date::Simple::ISO; =head1 DESCRIPTION This module is entirely identical to Date::Simple. It is included for completness and self documenting sake. IMO it is preferable to say my $obj=Date::Simple::ISO->new(...); As this makes the implicit formatting of the object clear. =head1 SEE ALSO L<Date::Simple> for full documentation. =cut