File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	8	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	37	45	82.2

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

package POE::Framework::MIDI::Note;
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;

	# validate note names.
	my $_name 	= $self->name;
	my ($letter) 	= $_name =~ /^([a-gA-G])/;
	die "$_name doesn't look like a valid note name.  Examples:  A, C3, G2, CS4 etc"
	 unless $letter;

	 die "You forgot to set a duration for the note $_name" unless $self->{cfg}->{duration};
	$self->{cfg}->{name} = $self->{cfg}->{name};
	return $self;
}

sub duration {
	my ( $self, $new_duration )  = @_;
	$new_duration  ? $self->{cfg}->{duration} = $new_duration : return $self->{cfg}->{duration}
}

sub name {
	my ( $self, $new_name ) = @_;
	$new_name ? $self->{cfg}->{name} = $new_name : return $self->{cfg}->{name}
}

# an alias for name
sub note {
	my ( $self, $new_note ) = @_;
	$self->name($new_note);
	return $self->name;
}




1;

__END__