blib/lib/CGI/Snapp/Dispatch.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 28 | 46 | 60.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
44 | 2 | 0 | 0 | $#args > 0 and $#args % 2 != 1 |
61 | 2 | 0 | 0 | $named_args->{'rm'} and not $named_args->{'rm'} =~ /^([a-zA-Z_][\w\']+)$/ |
122 | 4 | 24 | 0 | $#args > 0 and $#args % 2 != 1 |
142 | 2 | 21 | 1 | $named_args->{'rm'} and not $named_args->{'rm'} =~ /^([a-zA-Z_][\w\']+)$/ |
416 | 0 | 0 | 1 | -f $s and open INX, '<', $s |
line | l | !l | condition |
---|---|---|---|
205 | 2 | 4 | $error_document ||= '' |
237 | 0 | 6 | local $ENV{'SERVER_ADMIN'} ||= '' |
238 | 0 | 6 | local $ENV{'SERVER_SIGNATURE'} ||= '' |
545 | 4 | 18 | $http_method ||= '' |
583 | 13 | 5 | $args->{'prefix'} || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
49 | 0 | 0 | 2 | not $args->{'table'} or ref $args->{'table'} ne 'ARRAY' |
96 | 0 | 1 | 26 | not defined $path_info or length $path_info == 0 |
100 | 0 | 1 | 26 | not defined $path_info or $path_info eq '/' |
101 | 0 | 2 | 25 | not defined $path_info or length $path_info == 0 |
127 | 0 | 0 | 28 | not $args->{'table'} or ref $args->{'table'} ne 'ARRAY' |
138 | 0 | 0 | 25 | $ENV{'HTTP_REQUEST_METHOD'} || $ENV{'REQUEST_METHOD'} |
583 | 4 | 13 | 5 | $prefix ||= $args->{'prefix'} || '' |