view release on metacpan or  search on metacpan

lib/Net/DHCP/Info/Obj.pm  view on Meta::CPAN

sub ends_datetime {
    my $self = shift;
    return $self->_datetime($self->ends);
}

sub _datetime {

    ### init
    my $self = shift;
    my @time = split m"[\s\:/]"mx, shift;

    return DateTime->new(
        year      => $time[0],
        month     => $time[1],
        day       => $time[2],
        hour      => $time[3],
        minute    => $time[4],
        second    => $time[5],
        time_zone => 'UTC',
    );