File Coverage

blib/lib/App/timecalc.pm

Criterion	Covered	Total	%
statement	49	58	84.4
branch	17	22	77.2
condition	18	31	58.0
subroutine	6	6	100.0
pod	1	1	100.0
total	91	118	77.1

package App::timecalc;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-10-26'; # DATE
our $DIST = 'App-timecalc'; # DIST
our $VERSION = '0.005'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(eval_time_expr);

sub eval_time_expr {
    my $str = shift;

    my ($h, $m, $s) = (0, 0, 0);

    $str =~ s{
                 \s*
                 (?:
                     (?\d\d?):(?\d\d?)(?: :(?\d\d?))? |
                     (?\d\d?)(?\d\d)(?\d\d)?
                 )
                 \s*-\s*
                 (?:
                     (?\d\d?):(?\d\d?)(?: :(?\d\d?))? \s* |
                     (?\d\d?)(?\d\d)(?\d\d)?
                 )
             |
                 \s*\+
                 (?:
                     (?\d\d?):(?\d\d?)(?: :(?\d\d?))? |
                     (?\d\d?)(?\d\d)(?\d\d)?
                 )
                 \s*
             |
                 \s*\-
                 (?:
                     (?\d\d?):(?\d\d?)(?: :(?\d\d?))? \s* |
                     (?\d\d?)(?\d\d)(?\d\d)?
                 )
                 \s*
         }{

             if (defined $+{h1_colon} || defined $+{h1_nocolon}) {
                 my ($h1, $m1, $s1) = defined $+{h1_colon} ?
                     ($+{h1_colon}  , $+{m1_colon}  , $+{s1_colon}   // 0) :
                     ($+{h1_nocolon}, $+{m1_nocolon}, $+{s1_nocolon} // 0);
                 my ($h2, $m2, $s2) = defined $+{h2_colon} ?
                     ($+{h2_colon}  , $+{m2_colon}  , $+{s2_colon}   // 0) :
                     ($+{h2_nocolon}, $+{m2_nocolon}, $+{s2_nocolon} // 0);
                 if ($h1 > 24) { die "Hour cannot exceed 24: $h1" }
                 if ($h2 > 24) { die "Hour cannot exceed 24: $h2" }
                 if ($h2 < $h1 || $h2 <= $h1 && $m2 <= $m1) { $h2 += 24 }
                 $h += ($h2-$h1);
                 $m += ($m2-$m1);
                 $s += ($s2-$s1);
             } elsif (defined $+{hplus_colon} || defined $+{hplus_nocolon}) {
                 if (defined $+{hplus_colon}) {
                     $h += $+{hplus_colon};
                     $m += $+{mplus_colon};
                     $s += $+{splus_colon} // 0;
                 } else {
                     $h += $+{hplus_nocolon};
                     $m += $+{mplus_nocolon};
                     $s += $+{splus_nocolon} // 0;
                 }
             } elsif (defined $+{hminus_colon} || defined $+{hminus_nocolon}) {
                 if (defined $+{hminus_colon}) {
                     $h -= $+{hminus_colon};
                     $m -= $+{mminus_colon};
                     $s -= $+{sminus_colon} // 0;
                 } else {
                     $h -= $+{hminus_nocolon};
                     $m -= $+{mminus_nocolon};
                     $s -= $+{sminus_nocolon} // 0;
                 }
             }

             "";
         }egsx;

    die "Unexpected string near '$str'" if length $str;

    while ($s < 0) {
        $m--;
        $s += 60;
    }
    while ($s >= 60) {
        $m++;
        $s -= 60;
    }
    while ($m < 0) {
        $h--;
        $m += 60;
    }
    while ($m >= 60) {
        $h++;
        $m -= 60;
    }

    sprintf "+%02d:%02d:%02d", $h, $m, $s;
}

1;
# ABSTRACT: Time calculator

__END__