| line |
true |
false |
branch |
|
10
|
0 |
7 |
unless $$self{'cfg'} = shift() |
|
18
|
0 |
4 |
unless my $musicians = $$self{'cfg'}{'musicians'} |
|
30
|
0 |
58 |
unless $$params{'musician_name'} and $$params{'barnum'} and $$params{'bar'} |
|
32
|
0 |
58 |
unless ref($$params{'bar'}) =~ /POE::Framework::MIDI::Bar/ |
|
46
|
0 |
3 |
unless my($self, $filename) = @_ |
|
73
|
90 |
453 |
if ($wrap >= $printwrap) |
|
83
|
0 |
3 |
if ($$self{'cfg'}{'debug'}) |
|
84
|
0 |
0 |
unless open DEBUG, '>debug.perl' |
|
89
|
0 |
3 |
unless eval "$perlcode" |
|
122
|
0 |
544 |
unless $params{'event'} and $params{'musician_name'} |
|
131
|
0 |
544 |
if ($eventname eq 'POE::Framework::MIDI::Bar') { } |
|
|
517 |
27 |
elsif ($eventname eq 'POE::Framework::MIDI::Note') { } |
|
|
12 |
15 |
elsif ($eventname eq 'POE::Framework::MIDI::Rest') { } |
|
|
15 |
0 |
elsif ($eventname eq 'POE::Framework::MIDI::Interval') { } |
|
135
|
0 |
0 |
if ($eventname eq 'POE::Framework::MIDI::Note') { } |
|
|
0 |
0 |
elsif ($eventname eq 'POE::Framework::MIDI::Rest') { } |
|
187
|
0 |
0 |
unless my $querystring = shift() |