File Coverage

blib/lib/POE/Framework/MIDI.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	2	8	25.0
condition	0	3	0.0
subroutine	10	11	90.9
pod	0	3	0.0
total	43	59	72.8

# MIDI.pm is a simplified front end to the
#
# load everything we'll need, and get ready to rock.

package POE::Framework::MIDI;

use strict;
use POE;
use POE::Framework::MIDI::POEConductor;
use POE::Framework::MIDI::POEMusician;
use POE::Framework::MIDI::Bar;
use POE::Framework::MIDI::Note;
use POE::Framework::MIDI::Rest;
use Class::MethodMaker   new_with_init => [ qw /new/] , get_set =>  qw/honk/;
our $VERSION = 0.09;

sub init {
	my ( $self,  %args ) = @_;
	$self->{args} = \%args;
	die "No filename set in data hashref" 		unless $args{data}->{filename};
	die "No bar count set in data hashref" 	unless $args{data}->{bars};
}

sub musicians {
	my ($self,$new_musicians) = @_;
	die "Non array-ref passed to musicians()" if (ref($new_musicians)  and ref($new_musicians) ne 'ARRAY');
	$new_musicians ? $self->{args}->{musicians} = $new_musicians
		: return $self->{args}->{musicians};
}

sub run {
	my $self = shift;
	POE::Framework::MIDI::POEConductor->spawn({
	debug     		=> $self->{args}->{data}->{debug},
	verbose   	=> $self->{args}->{data}->{verbose},
	bars      		=> $self->{args}->{data}->{bars},
	filename  	=> $self->{args}->{data}->{filename},
	musicians 		=> $self->{args}->{musicians}  });

# $poe_kernel is exported by POE
$poe_kernel->run;

}

1;


__END__