| line |
true |
false |
branch |
|
45
|
6 |
0 |
if Lim::OBJ_DEBUG() |
|
51
|
6 |
0 |
if Lim::OBJ_DEBUG() |
|
66
|
4 |
6 |
if ($map =~ /^(\S+)\s+=>\s+(\w+)(?:\s+(\S+))?$/ou) { } |
|
|
0 |
6 |
elsif ($map =~ /^(\S+)\s+(\S+)$/ou) { } |
|
76
|
4 |
6 |
if (exists $_MAP_CACHE_CODE{$map} and defined $_MAP_CACHE_CODE{$map}) |
|
86
|
4 |
6 |
if ($map_part =~ /^\w+$/ou) { } |
|
|
6 |
0 |
elsif ($map_part =~ /^((?:\w+\.)*\w+)=(.+)$/ou) { } |
|
94
|
0 |
0 |
if Lim::DEBUG() |
|
108
|
0 |
6 |
if ($@) |
|
109
|
0 |
0 |
if Lim::DEBUG() |
|
118
|
0 |
6 |
if ($predata) |
|
120
|
0 |
0 |
if ($predata_variable =~ /^([^=]+)=(.+)$/ou) { } |
|
126
|
0 |
0 |
if Lim::DEBUG() |
|
133
|
6 |
0 |
if (scalar @variables) { } |
|
138
|
0 |
6 |
$n != scalar @variables ? : |
|
146
|
0 |
6 |
$n != scalar @variables ? : |
|
166
|
0 |
6 |
if ($@) |
|
167
|
0 |
0 |
if Lim::DEBUG() |
|
178
|
0 |
6 |
if ($@) |
|
179
|
0 |
0 |
if Lim::DEBUG() |
|
200
|
0 |
0 |
unless (ref $data eq 'HASH') |
|
205
|
0 |
0 |
if (defined(my $ret = &$map($uri, $data))) |