File Coverage

blib/lib/Net/DAAP/Server/AAC.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Net::DAAP::Server::AAC;

use strict;
our $VERSION = '0.01';

use base qw( Net::DAAP::Server );
use File::Find::Rule;
use Net::DAAP::Server::Track;
use Net::DAAP::Server::AAC::Track;

sub find_tracks {
    my $self = shift;
    for my $file ( find name => [ '*.mp3', '*.mp4', '*.m4a' ], in => $self->path) {
        my $track;
        if ($file =~ /\.mp3$/i) {
            $track = Net::DAAP::Server::Track->new_from_file( $file );
        } else {
            $track = Net::DAAP::Server::AAC::Track->new_from_file( $file );
        }
        $track or next;
        $self->tracks->{ $track->dmap_itemid } = $track;
    }
}

1;
__END__