File Coverage

blib/lib/Audio/APETags.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch	2	6	33.3
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	21	32	65.6

package Audio::APETags;

# Base class wrapper.

use strict;
use Audio::Scan;

our $VERSION = '1.0';

sub new {
    my ($class, $file) = @_;

    my $method = ref $file ? 'scan_fh' : 'scan';
    my $self   = Audio::Scan->$method($file);

    bless $self, $class;

    return $self;
}

sub _extract {
    my ($self, $type, $key) = @_;

    return $self->{$type} unless $key;
    return $self->{$type}{ucfirst $key} if defined $self->{$type}{ucfirst $key};
    return $self->{$type}{$key};
}

sub info {
    return shift->_extract('info', @_);
}

sub tags {
    return shift->_extract('tags', @_);
}

1;

__END__