File Coverage

blib/lib/Acme/September/Eternal.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	2	4	50.0
condition	2	6	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	37	46	80.4

package Acme::September::Eternal;

use 5.010000;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(eternalseptemberize);
our $VERSION = '1.0';

use Date::Manip;
use Lingua::EN::Numbers::Ordinate;

sub eternalseptemberize {
    # Change date&time string to "Eternal september" date string
    my ($indate) = @_;

    my $sepdate = '1993-09-01 00:00:00';

    my $inmangler = Date::Manip::Date->new();
    my $sepmangler = Date::Manip::Date->new();

    my ($inparseerr) = $inmangler->parse($indate);

    if(defined($inparseerr) && $inparseerr) {
        return '';
    }

    my ($sepparseerr) = $sepmangler->parse($sepdate);

    if(defined($sepparseerr) && $sepparseerr) {
        return '';
    }

    my $delta = $inmangler->calc($sepmangler, 1);
    my @deltafields = $delta->value();
    my $days = ordinate(int($deltafields[4] / 24) + 1);
    my $result = $inmangler->printf("%a, $days et. Sept. 1993 %H:%M:%S");

    return $result;
}

1;
__END__