File Coverage

blib/lib/Time/Human.pm

Criterion	Covered	Total	%
statement	6	37	16.2
branch	0	20	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	66	12.1

package Time::Human;

require 5.005_62;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Time::Human ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	humantime
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
    humanize

);
our $VERSION = '1.03';

our %templates = (

    English => {
        numbers  => [ qw(one two three four five six seven eight nine ten eleven twelve) ],
        vagueness=> [ "exactly", "just after", "a little after", "coming up to", "almost"],
        daytime  => [ "in the morning", "in the afternoon", "in the evening", "at night" ],
        minutes  => ["five past", "ten past", "quarter past", "twenty past",
                    "twenty-five past", "half past", "twenty-five to",
                    "twenty to", "quarter to", "ten to", "five to"],
        oclock   => "o'clock",
        midnight => "midnight",
        midday   => "midday",
        format   => "%v %m %h %d",
    }
);

our $Language = "English";
our $Evening = 18;
our $Night = 22;

# Preloaded methods go here.

sub humanize_base {
    my ($hour, $minute) = @_[2,1];
    my $vague = $minute % 5;
    my $close_minute = $minute-$vague;
    my $t = $templates{$Language};
    my $say_hour;
    my $daytime ="";
    if ($vague > 2) {$close_minute += 5}
    if ($close_minute >30) { $hour++; $hour %=24; }
    $close_minute /= 5;
    $close_minute %= 12;
    if ($hour ==0) {
        $say_hour = $t->{midnight};
    } elsif ($hour == 12) {
        $say_hour = $t->{midday};
    } else {
        $say_hour = $t->{numbers}[$hour%12-1];
        $daytime = $hour <= 12 ? ($t->{daytime}[0]) :
                    $hour >= $Night ? $t->{daytime}[3] :
                    ($hour >= $Evening ? $t->{daytime}[2] :
                    $t->{daytime}[1]); # Afternoon
    }
    if ($close_minute==0) {
        $say_hour .= " ". $t->{oclock} unless $hour ==0 or $hour == 12;
    }
    my $say_min = $close_minute ==0? "" : $t->{minutes}[$close_minute-1];
    my $rv = $t->{format};
    $rv =~ s/%v/$t->{vagueness}[$vague]/eg;
    $rv =~ s/%m/$say_min/g;
    $rv =~ s/%h/$say_hour/g;
    $rv =~ s/%d/$daytime/g;
    $rv =~ s/^\s+|(?<=\s)\s|\s+$//g;
    return $rv;
}

sub humanize {
    my @foo = humanize_base(@_);
    return (shift(@foo)." @foo");
}

1;
__END__