Beta Shell v2.0

File Manager

~ /usr/lib64/perl5/vendor_perl/Date/Simple

Name	Size	Perms	Modified	Actions
[ .. / .. ]
D8.pm	923 B	-rw-r--r--	2008-01-11 22:30:50	Edit Del
Fmt.pm	1.3 KB	-rw-r--r--	2008-01-11 22:31:17	Edit Del
ISO.pm	783 B	-rw-r--r--	2008-01-11 22:30:00	Edit Del

Editing: D8.pm (923 B)

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