File Coverage

blib/lib/Media/DateTime.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	2	2	100.0
total	42	44	95.4

package Media::DateTime;

# ABSTRACT: A simple module to extract the timestamp from media files in an flexible manner.

use strict;
use warnings;

our $VERSION = '0.48';

use Carp;
use DateTime;
use Module::Pluggable
  search_path => 'Media::DateTime',
  require     => 1,
  sub_name    => 'matchers';

sub new {
    my $that = shift;
    my $class = ref($that) || $that;    # Enables use to call $instance->new()
    return bless {}, $class;
}

sub datetime {
    my ( $self, $f ) = @_;
    for my $class ( $self->matchers ) {
        if ( $class->match($f) ) {
            my $v = $class->datetime($f);
            return $v if defined $v;
        }
    }
    return $self->_datetime_from_filesystem_stamp($f);
}

sub _datetime_from_filesystem_stamp {
    my ( $self, $f ) = @_;

    my $c_date = ( stat($f) )[9];
    return DateTime->from_epoch( epoch => $c_date, time_zone => 'local' );
}

1;

__END__