| blib/lib/DBIx/Class/Schema/Loader/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 26 | 57.6 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 28 | 5444 | if (not $v or $v >= 8) |
| 34 | 267 | 5177 | $is_camel_case ? : |
| 57 | 0 | 11199 | if ref $pattern ne "Regexp" |
| 61 | 5 | 87 | unless $_[0] =~ /$pattern/ |
| 69 | 1307 | 7 | if &$f() |
| 82 | 1220 | 0 | wantarray ? : |
| 98 | 8 | 1550 | if (my($sym) = $@ =~ /^Subroutine (\S+) redefined/) { } |
| 0 | 1550 | elsif ($@) { } | |
| 108 | 0 | 0 | if $@ |
| 149 | 0 | 0 | if ($_[0] =~ /$re/) { } |
| 167 | 0 | 0 | if $_[0] =~ /$re/ |
| 177 | 0 | 107 | unless open my $fh, "<:encoding(UTF-8)", $file_name |
| 192 | 0 | 1 | unless open my $fh, ">:encoding(UTF-8)", $file_name |