Date::Simple::Fmt - Sub class of Date::Simple with per object level formatting for

Date-Simple documentation Contained in the Date-Simple distribution.

Index

Code Index:

NAME

Top

Date::Simple::Fmt - Sub class of Date::Simple with per object level formatting for overloaded stringification.

SYNOPSIS

Top

    use Date::Simple::Fmt;

DESCRIPTION

Top

This module changes the default stringification behaviour of Date::Simple objects to use the format() method instead. It also changes the behaviour of the constructor.

Follows the same rules as for the equivelent method (new) and subroutine (date) in Date::Simple except that the first argument is expected to be the default format for the newly created object. It is this format that will be used when using overloaded stringification or when not providing a format argument to the format() method.

SEE ALSO

Top

Date::Simple for full documentation.

Date-Simple documentation Contained in the Date-Simple distribution. 
package Date::Simple::Fmt;
use Date::Simple 3;
use base qw/Date::Simple/;
use overload '""' => '_format';

*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(@_) }

sub new {
    my ( $class, $fmt, @args ) = @_;
    my $self = $class->SUPER::new(@args);
    $self->default_format($fmt);
    $self;
}

sub _format { shift->format() }

1;