File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Date.pm

Criterion	Covered	Total	%
statement	63	73	86.3
branch	18	40	45.0
condition	18	44	40.9
subroutine	14	14	100.0
pod	4	4	100.0
total	117	175	66.8

package HH::Unispool::Config::File::Token::Comment::Date;

use 5.006;
use base qw( HH::Unispool::Config::File::Token::Comment );
use strict;
use warnings;
use AutoLoader qw(AUTOLOAD);
use Error qw(:try);
use HH::Unispool::Config::File::Token qw( :rx :frm );
use Time::Local qw( timelocal );

# Used by _value_is_allowed
our %ALLOW_ISA = (
);

# Used by _value_is_allowed
our %ALLOW_REF = (
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'time' => [ '^\d+$' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
);

# Used by _initialize
our %DEFAULT_VALUE = (
    # See _initialize for 'time' default value
);

# Unispool <=> unix conversion
our %UNIX2USP_MONTH = ();

# Unispool <=> unix conversion
our %USP2UNIX_MONTH = (
    jan => 0,
    feb => 1,
    mar => 2,
    apr => 3,
    may => 4,
    jun => 5,
    jul => 6,
    aug => 7,
    sep => 8,
    oct => 9,
    nov => 10,
    dec => 11,
);

# Package version
our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;

# Unispool <=> unix conversion
our @UNIX2USP_WDAY = qw( SUN MON TUE WED THU FRI SAT );

# Fill UNIX2USP_MONTH
foreach my $mon ( keys(%USP2UNIX_MONTH) ) {
        $UNIX2USP_MONTH{ $USP2UNIX_MONTH{$mon} } = uc($mon);
}

1;

__END__