File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	29	34	85.2

# $Id: Phrase.pm,v 1.1.1.1 2004/11/22 17:52:11 root Exp $

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

sub new {
	my ( $self,  $class ) = ( {},  shift );
	bless $self, $class;
	$self->{cfg} = shift;
	return $self;
}

sub add_event {
    my ( $self, $event ) = @_;
    push @{$self->{events}}, $event;
}

sub add_events {
    my( $self, @events ) = @_;
    push @{$self->{events}}, @events;
}

# return the stack of notes/rests/intervals/bars
sub events {
	my ( $self, $new_events ) = @_;
	$new_events
		? $self->{events} = $new_events : return $self->{events}
}

1;

__END__