File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	36	42	85.7

# $Id: Bar.pm,v 1.2 2004/12/04 18:08:17 stv Exp $

package POE::Framework::MIDI::Bar;

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;
    warn 'please provide a value for the number => $n parameter when generating bars'
    unless $self->{cfg}->{number};
    return $self;
}

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


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

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

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

1;

__END__