File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	24	28	85.7

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

package POE::Framework::MIDI::Rest;

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;
    return $self;
}

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

sub name {
    return 'rest';
}

1;

__END__