File Coverage

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

Criterion	Covered	Total	%
statement	25	28	89.2
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	0	6	0.0
total	35	46	76.0

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

package POE::Framework::MIDI::Musician;
use strict;
no strict 'refs';
use vars '$VERSION'; $VERSION = '0.02';

sub new {
    my( $self, $class ) = ( {},  shift );
    bless( $self, $class );

    #my %params = @_;
    #$self->{cfg} = \%params;
    use Data::Dumper;

    $self->{cfg} = shift;
   unless($self->{cfg}->{package}) {
    die "no package provided to POE::Framework::MIDI::Musician.. it needs a package to know what to play.  Dump: " . Dumper($self->{cfg}) . "\n\n" . caller;
   }
    #die "no channel passed to $self->{cfg}->{package}::new" unless $self->{cfg}->{package};
    #die "no name passed to $self->{cfg}->{package}:new" unless $self->{cfg}->{name};
    return $self;
}

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

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

sub instrument_name {
	my $self = shift;
	return $self->name;
}

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

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

1;

__END__