File Coverage

blib/lib/POE/Framework/MIDI/Interval.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	3	0.0
total	27	33	81.8

package POE::Framework::MIDI::Interval;
use strict;
use vars '$VERSION'; $VERSION = '0.02';
use POE::Framework::MIDI::Utility;

sub new {
	my ( $self, $class ) = ( {}, shift );
	bless $self,$class;
	my %params = @_;
	$self->{cfg} = \%params;
	die "Interval needs a duration and a notes listref" unless ($params{duration}
		and ref($params{notes}) eq 'ARRAY');
	return $self;
}

sub duration {
	my $self = shift;
	return $self->{cfg}->{duration};
}

sub notes {
	my $self = shift;
	return $self->{cfg}->{notes};
}




1;