File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	38	42	90.4

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

package POE::Framework::MIDI::POEMusician;
use strict;
use vars '$VERSION';
use base 'POE::Framework::MIDI::Musician';
use POE;
use POE::Framework::MIDI::Musician;

# Changelog:
#
# 0.02 - Updated to remove calls to deprecated POE::Session->new and replace
# them with POE::Session->spawn instead;
#

$VERSION = 0.2;

# session builder - ala dngor
sub spawn {
    my $class 	= shift;
    my $self 		= $class->new(@_);

    POE::Session->create(
    	object_states => [   $self => [qw(_start _stop make_a_bar)]] );
    my ( $package,  $patch,  $channel ) = ( $self->{cfg}->{package}, $self->{cfg}->{patch},
    	$self->{cfg}->{channel} );

     $self->{musician_object} = $package->new( {
     	package 		=> $package,
     	name 			=> $self->{cfg}->{name},
     	patch 			=> $patch,
     	channel 		=> $channel,
     	data 			=> $self->{cfg}->{data}, })
     	or die "couldn't make a new $self->{cfg}->{package}" ;
    return undef;
}

sub _start {
    my ( $self,  $kernel,  $session,  $heap ) = @_[OBJECT, KERNEL, SESSION, HEAP];
    $kernel->alias_set( $self->name );
    print $self->name . " has started\n" if $self->{cfg}->{verbose};
}

sub _stop {
    my ( $self, $kernel, $session, $heap ) = @_[OBJECT, KERNEL, SESSION, HEAP];
}

# trigger the local musician sub-object to make a bar.
sub make_a_bar {
    my ($self, $kernel, $session, $heap, $sender, $barnum ) =
        @_[OBJECT, KERNEL, SESSION, HEAP, SENDER, ARG0];

    $kernel->post(   $sender, 'made_bar', $barnum,
        $self->{musician_object}->make_bar($barnum), $self->{musician_object}
    );
}

1;

__END__