| line |
true |
false |
branch |
|
28
|
1 |
11 |
if @_ & 1 |
|
33
|
3 |
5 |
unless defined $params{'Code'} or defined $params{'Get'} and defined $params{'Put'} |
|
36
|
3 |
5 |
defined $params{'Code'} ? : |
|
|
1 |
7 |
unless defined $params{'Code'} ? ref $params{'Code'} eq "CODE" : 1 |
|
39
|
5 |
2 |
defined $params{'Get'} ? : |
|
|
4 |
2 |
defined $params{'Put'} ? : |
|
|
2 |
5 |
unless defined $params{'Get'} ? ref $params{'Get'} eq "CODE" : 1 and defined $params{'Put'} ? ref $params{'Put'} eq "CODE" : 1 |
|
45
|
0 |
5 |
if scalar keys %params |
|
65
|
13 |
0 |
if defined $stream |
|
76
|
42 |
23 |
if grep {$self->[1]->($_);} $next_record |
|
96
|
3 |
3 |
unless @{$self->[0];} |
|
106
|
3 |
4 |
unless ref $params{$_} eq "CODE" |
|
107
|
1 |
3 |
if (lc $_ eq 'code') { } |
|
|
1 |
2 |
elsif (lc $_ eq 'put') { } |
|
|
1 |
1 |
elsif (lc $_ eq 'get') { } |