| line | % | coverage | branch |
|---|
| 162 | 100 | T | F | if scalar @_ == 1 and ref $_[0] eq "HASH" |
| 166 | 50 | T | F | if (ref $default) |
| 172 | 100 | T | F | if (scalar @_ == 1 and ref $_[0] eq 'ARRAY') { } |
| 173 | 100 | T | F | if ($default and scalar @{$_[0];} == 2 and @{$_[0];}[0] eq $default and not ref @{$_[0];}[1]) |
| 189 | 100 | T | F | if ($num_args == 1) |
| 190 | 100 | T | F | if (defined $default) |
| 191 | 100 | T | F | unless (ref $args->[0]) |
| 195 | 100 | T | F | if (ref $args->[0] eq "ARRAY") |
| 198 | 100 | T | F | if (ref $args->[0] eq "SCALAR") |
| 201 | 100 | T | F | if (ref $args->[0] eq "CODE") |
| 204 | 100 | T | F | if (&Scalar::Util::blessed($args->[0])) |
| 208 | 100 | T | F | unless (defined $args->[0]) |
| 211 | 100 | T | F | if (ref $args->[0] eq "REF") |
| 214 | 100 | T | F | if (ref $args->[0] eq "HASH") |
| 217 | 100 | T | F | if (ref $args->[0] eq "ARRAY" and scalar @{$args->[0];} == 0) |
| 222 | 50 | T | F | if (defined $default) |
| 229 | 100 | T | F | if ($num_args == 0) |
| 230 | 100 | T | F | if (defined $default) |
| 241 | 100 | T | F | if ($num_args == 2 and ref $args->[1] eq "HASH") |
| 242 | 50 | T | F | if (defined $default) |
| 243 | 50 | T | F | if (scalar keys %{$$args[1];}) |
| 244 | 100 | T | F | if ($args->[0] eq $default) |
| 258 | 100 | T | F | if ($array_ref and defined $default) |
| 261 | 50 | T | F | if ($num_args % 2 == 0) |