| line |
true |
false |
branch |
|
28
|
1 |
11 |
if @_ & 1 |
|
31
|
3 |
5 |
unless defined $params{'Code'} or defined $params{'Get'} and defined $params{'Put'} |
|
35
|
3 |
5 |
defined $params{'Code'} ? : |
|
|
1 |
7 |
unless defined $params{'Code'} ? ref $params{'Code'} eq 'CODE' : 1 |
|
37
|
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') { } |