File Coverage

blib/lib/Audio/File/Ogg.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	33	35	94.2

package Audio::File::Ogg;

use strict;
use warnings;
use base qw( Audio::File::Type );
use Audio::File::Ogg::Tag;
use Audio::File::Ogg::AudioProperties;

our $VERSION = '0.02';

sub init {
	return 1;
}

sub _create_tag {
	my $self = shift;
	$self->{tag} = Audio::File::Ogg::Tag->new( $self->name() ) or return;
	return 1;
}

sub _create_audio_properties {
	my $self = shift;
	$self->{audio_properties} = Audio::File::Ogg::AudioProperties->new( $self->name() ) or return;
	return 1;
}

1;