| blib/lib/DBIx/Class/Schema/Loader/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 26 | 57.6 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 33 | 5654 | if (not $v or $v >= 8) |
| 33 | 273 | 5381 | $is_camel_case ? : |
| 56 | 0 | 10784 | if ref $pattern ne "Regexp" |
| 60 | 5 | 87 | unless $_[0] =~ /$pattern/ |
| 68 | 1383 | 14 | if &$f() |
| 81 | 1242 | 0 | if (wantarray) { } |
| 97 | 8 | 1692 | if (my($sym) = $@ =~ /^Subroutine (\S+) redefined/) { } |
| 0 | 1692 | elsif ($@) { } | |
| 107 | 0 | 0 | if $@ |
| 148 | 0 | 0 | if ($_[0] =~ /$re/) { } |
| 166 | 0 | 0 | if $_[0] =~ /$re/ |
| 176 | 0 | 110 | unless open my $fh, "<:encoding(UTF-8)", $file_name |
| 191 | 0 | 1 | unless open my $fh, ">:encoding(UTF-8)", $file_name |