File Coverage

blib/lib/Acme/December/Eternal.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	60	64	93.7

package Acme::December::Eternal;

use 5.010000;
use strict;
use warnings;

require Exporter;

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

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

sub eternaldecemberize {
    # Change date&time string to "Eternal december" date string
    my ($indateraw) = @_;

    my ($indate, $intime);
    if($indateraw =~ /\ /) {
        ($indate, $intime) = split/\ /, $indateraw;
        $intime = ' ' . $intime;
    } else {
        $indate = $indateraw;
        $intime = '';
    }

    my $result = '';

    my $date = Date::Manip::Date->new();
    $date->parse($indate);

    my $month = $date->printf('%m');
    $month =~ s/^0+//g;
    my $dayofyear = $date->printf('%j');
    $dayofyear =~ s/^0+//g;
    my $dayofmonth = $date->printf('%d');
    $dayofmonth =~ s/^0+//g;
    my $year = $date->printf('%Y');

    my $weekday = $date->printf('%a');
    $weekday .= ', ';

    # December starts on 1st of September...
    my $septstart = Date::Manip::Date->new();
    $septstart->parse($year . '-09-01');
    my $septday = $septstart->printf('%j');
    $septday =~ s/^0+//g;

    if($month == 8) {
        # August
        $result = $weekday . ordinate($dayofmonth) . ' August ' . $year;
    } else {
        # December
        if($month > 8) {
            my $daycount = $dayofyear - $septday + 1;
            $result = $weekday . ordinate($daycount) . ' December ' . $year
        } else {
            # Uh-oh, this is the continuation of last years december...
            my $decend = Date::Manip::Date->new();
            $decend->parse($year . '-12-31');
            my $decday = $decend->printf('%j');
            $decday =~ s/^0+//g;
            my $prevyeardays = $decday - $septday + 1;
            my $daycount = $dayofyear + $prevyeardays;
            $year--; # previous years december
            $result = $weekday . ordinate($daycount) . ' December ' . $year
        }
    }

    return $result;
}

1;
__END__