File Coverage

blib/lib/Bootylicious/Timestamp.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	6	8	75.0
condition	7	9	77.7
subroutine	10	10	100.0
pod	1	6	16.6
total	63	72	87.5

package Bootylicious::Timestamp;

use strict;
use warnings;

use base 'Mojo::Base';

require Time::Local;
require Time::Piece;

__PACKAGE__->attr('epoch');

my $TIMESTAMP_RE = qr/(\d\d\d\d)(\d?\d)(\d?\d)(?:T(\d\d):?(\d\d):?(\d\d))?/;

sub new {
    my $self   = shift->SUPER::new;
    my %params = @_;

    if (exists $params{epoch}) {
        $self->epoch($params{epoch});
    }
    else {
        my $epoch = $self->_to_epoch($params{timestamp});
        $self->epoch($epoch);
    }

    return $self;
}

sub _to_epoch {
    my $self      = shift;
    my $timestamp = shift;

    return unless $timestamp =~ qr/^$TIMESTAMP_RE$/;

    my ($year, $month, $day, $hour, $minute, $second) =
      ($1, $2, $3, ($4 || 0), ($5 || 0), ($6 || 0));

    my $epoch = 0;
    eval {
        $epoch =
          Time::Local::timegm($second, $minute, $hour, $day, $month - 1,
            $year - 1900);
    };

    return if $@ || $epoch < 0;

    return $epoch;
}

sub year {
    my $self = shift;

    return Time::Piece->gmtime($self->epoch)->year;
}

sub month {
    my $self = shift;

    return Time::Piece->gmtime($self->epoch)->mon;
}

sub timestamp {
    my $self = shift;

    my $t = Time::Piece->gmtime($self->epoch);

    return $t->strftime('%Y%m%dT%H:%M:%S');
}

sub strftime {
    my $self = shift;
    my $fmt  = shift;

    my $t = Time::Piece->gmtime($self->epoch);

    return $t->strftime($fmt);
}

sub is_timestamp {
    my $self      = shift;
    my $timestamp = shift;

    return $timestamp =~ qr/^$TIMESTAMP_RE$/ ? 1 : 0;
}

1;