File Coverage

blib/lib/MP3/Cut/Gapless/Track.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch	1	2	50.0
condition			n/a
subroutine	4	9	44.4
pod	7	7	100.0
total	25	36	69.4

package MP3::Cut::Gapless::Track;

use strict;

sub new {
    my $class = shift;

    my $self;

    if ( ref $_[0] eq 'Audio::Cuefile::Parser::Track' ) {
        $self = {
            start_ms  => _parseMSF( $_[0]->index ),
            performer => $_[0]->performer,
            position  => $_[0]->position,
            title     => $_[0]->title,
        };
    }

    bless $self, $class;

    return $self;
}

sub position { $_[0]->{position} }
sub performer { $_[0]->{performer} }
sub title { $_[0]->{title} }
sub index { $_[0]->{index} }
sub start_ms { $_[0]->{start_ms} }
sub end_ms { $_[0]->{end_ms} }

sub _parseMSF {
    my $msf = shift;

    my ($min, $sec, $frm) = split /:/, $msf, 3;

    return sprintf "%d", ((60 * $min) + $sec + ($frm / 75)) * 1000;
}

1;
__END__