File Coverage

blib/lib/Date/Format.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch	2	2	100.0
condition			n/a
subroutine	4	6	66.6
pod	4	4	100.0
total	22	28	78.5

# Copyright (c) 1995-2009 Graham Barr. This program is free
# software; you can redistribute it and/or modify it under the same terms
# as Perl itself.

package Date::Format;

use     strict;
require Exporter;

our $VERSION = '2.34_03'; # TRIAL VERSION: generated
# ABSTRACT: Date formatting subroutines

use Date::Format::Generic;

our @ISA     = qw(Exporter);
our @EXPORT  = qw(time2str strftime ctime asctime);

sub time2str ($;$$$)
{
 my ($fmt, $time, $zone, $lang) = @_;
 my $pkg = defined $lang
    ? do { require Date::Language; Date::Language->new($lang) }
    : 'Date::Format::Generic';
 $pkg->time2str($fmt, $time, $zone);
}

sub strftime ($\@;$)
{
 Date::Format::Generic->strftime(@_);
}

sub ctime ($;$)
{
 my ($t,$tz) = @_;
 Date::Format::Generic->time2str("%a %b %e %T %Y\n", $t, $tz);
}

sub asctime (\@;$)
{
 my ($t,$tz) = @_;
 Date::Format::Generic->strftime("%a %b %e %T %Y\n", $t, $tz);
}

1;

__END__