File Coverage

blib/lib/POE/Framework/MIDI/Musician/Generic.pm

Criterion	Covered	Total	%
statement	21	29	72.4
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	0	2	0.0
total	28	40	70.0

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

############
# use this package as a starting point for making musicians.

package POE::Framework::MIDI::Musician::Generic;
use strict;
use vars '$VERSION'; $VERSION = '0.02';
use vars '@ISA';
@ISA = 'POE::Framework::MIDI::Musician';

use POE::Framework::MIDI::Musician;
use POE::Framework::MIDI::Bar;
use POE::Framework::MIDI::Note;
use POE::Framework::MIDI::Rest;

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

sub make_bar {
    my $self = shift;
    my $barnum = shift;

    my $bar = POE::Framework::MIDI::Bar->new({ number => $barnum });

    # add some events to the bar with $bar->add_event($note);
    # or rest, or noop once that does something.

    return $bar;
}

1;

__END__