File Coverage

blib/lib/Audio/File/Ogg/AudioProperties.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	28	96.4

package Audio::File::Ogg::AudioProperties;

use strict;
use warnings;
use base qw( Audio::File::AudioProperties );
use Ogg::Vorbis::Header::PurePerl;

our $VERSION = '0.01';

sub init {
	my $self = shift;
	$self->{ogg} = Ogg::Vorbis::Header::PurePerl->new( $self->{filename} ) or return;
	my $ogginfo = $self->{ogg}->info();

	$self->length( $ogginfo->{length} );
	$self->bitrate( $ogginfo->{bitrate_nominal} );
	$self->sample_rate( $ogginfo->{rate} );
	$self->channels( $ogginfo->{channels} );

	return 1;
}

1;