File Coverage

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

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	8	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	2	50.0
total	17	44	38.6

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

package POE::Framework::MIDI::Ruleset;
use strict;
use vars qw($VERSION); $VERSION = '0.02';
use base 'POE::Framework::MIDI::Rule';
use POE::Framework::MIDI::Rule;

# no support for partially matching rules yet...
sub test {
    my ($self, $thing_to_test) = @_
        or die __PACKAGE__ . '::test() needs something to test, and rule to test against';

    # We should probably start using bar and phrase objects (??)
    # otherwise this could test a bar against a phrase-based
    # ruleset.
    #
    # Eventually this should also be extended to allow for partially
    # matching rules.
    my $matches_all;

# Commented-out just to show the code below.
#    for ( @{$self->{cfg}->{rules}} ) {
#        my $res = $_->test($thing_to_test);
#        $matches_all = $res == 1 ? 1 : undef;
#    }
#    return $matches_all;

    # How about a simple average of the running tally of individual
    # rule matchings, where a rule test returns 1 for full 100%
    # match, zero for no match at all, and some decimal for partial.
    my $average = 0;
    my @matches = ();

    # Sum and keep track of the individual rule matchings.
    for (@{ $self->{cfg}{rules} }) {
        my $res = $_->test($thing_to_test);
        push @matches, $res;
        $average += $res;
    }

    # Average the combined rule matchings if there are any.
    $average /= @{ $self->{cfg}{rules} }
        if @{ $self->{cfg}{rules} };

    # Return the average number of matches in a scalar context,
    # and the actual rule matches in array context.
        return wantarray ? @matches : $average;
}

sub rules {
	my $self = shift;
	wantarray ? return @{$self->{cfg}->{rules}} : return $self->{cfg}->{rules};
}

1;

__END__