File Coverage

blib/lib/Audio/Scan.pm

Criterion	Covered	Total	%
statement	62	76	81.5
branch	13	24	54.1
condition	10	16	62.5
subroutine	11	11	100.0
pod	8	8	100.0
total	104	135	77.0

package Audio::Scan;

use strict;

our $VERSION = '1.01';

require XSLoader;
XSLoader::load('Audio::Scan', $VERSION);

use constant FILTER_INFO_ONLY => 1;
use constant FILTER_TAGS_ONLY => 2;

sub scan_info {
    my ( $class, $path, $opts ) = @_;

    $opts ||= {};
    $opts->{filter} = FILTER_INFO_ONLY;

    $class->scan( $path, $opts );
}

sub scan_tags {
    my ( $class, $path, $opts ) = @_;

    $opts ||= {};
    $opts->{filter} = FILTER_TAGS_ONLY;

    $class->scan( $path, $opts );
}

sub scan {
    my ( $class, $path, $opts ) = @_;

    my ($filter, $md5_size, $md5_offset);

    open my $fh, '<', $path or do {
        warn "Could not open $path for reading: $!\n";
        return;
    };

    binmode $fh;

    my ($suffix) = $path =~ /\.(\w+)$/;

    return if !$suffix;

    if ( defined $opts ) {
        if ( !ref $opts ) {
            # Back-compat to support filter as normal argument
            warn "The Audio::Scan::scan() filter passing method is deprecated, please pass a hashref instead.\n";
            $filter = $opts;
        }
        else {
            $filter     = $opts->{filter} || FILTER_INFO_ONLY | FILTER_TAGS_ONLY;
            $md5_size   = $opts->{md5_size};
            $md5_offset = $opts->{md5_offset};
        }
    }

    if ( !defined $filter ) {
        $filter = FILTER_INFO_ONLY | FILTER_TAGS_ONLY;
    }

    my $ret = $class->_scan( $suffix, $fh, $path, $filter, $md5_size || 0, $md5_offset || 0 );

    close $fh;

    return $ret;
}

sub scan_fh {
    my ( $class, $suffix, $fh, $opts ) = @_;

    my ($filter, $md5_size, $md5_offset);

    binmode $fh;

    if ( defined $opts ) {
        if ( !ref $opts ) {
            # Back-compat to support filter as normal argument
            warn "The Audio::Scan::scan_fh() filter passing method is deprecated, please pass a hashref instead.\n";
            $filter = $opts;
        }
        else {
            $filter     = $opts->{filter} || FILTER_INFO_ONLY | FILTER_TAGS_ONLY;
            $md5_size   = $opts->{md5_size};
            $md5_offset = $opts->{md5_offset};
        }
    }

    if ( !defined $filter ) {
        $filter = FILTER_INFO_ONLY | FILTER_TAGS_ONLY;
    }

    return $class->_scan( $suffix, $fh, '(filehandle)', $filter, $md5_size || 0, $md5_offset || 0 );
}

sub find_frame {
    my ( $class, $path, $offset ) = @_;

    open my $fh, '<', $path or do {
        warn "Could not open $path for reading: $!\n";
        return;
    };

    binmode $fh;

    my ($suffix) = $path =~ /\.(\w+)$/;

    return -1 if !$suffix;

    my $ret = $class->_find_frame( $suffix, $fh, $path, $offset );

    close $fh;

    return $ret;
}

sub find_frame_fh {
    my ( $class, $suffix, $fh, $offset ) = @_;

    binmode $fh;

    return $class->_find_frame( $suffix, $fh, '(filehandle)', $offset );
}

sub find_frame_return_info {
    my ( $class, $path, $offset ) = @_;

    open my $fh, '<', $path or do {
        warn "Could not open $path for reading: $!\n";
        return;
    };

    binmode $fh;

    my ($suffix) = $path =~ /\.(\w+)$/;

    return if !$suffix;

    my $ret = $class->_find_frame_return_info( $suffix, $fh, $path, $offset );

    close $fh;

    return $ret;
}

sub find_frame_fh_return_info {
    my ( $class, $suffix, $fh, $offset ) = @_;

    binmode $fh;

    return $class->_find_frame_return_info( $suffix, $fh, '(filehandle)', $offset );
}

1;
__END__