| line |
true |
false |
branch |
|
25
|
0 |
0 |
if ref $class |
|
48
|
0 |
20 |
unless defined $rhsh |
|
51
|
0 |
40 |
!(exists $rhsh->{$_} && defined $rhsh->{$_}) ? : |
|
57
|
20 |
0 |
if (defined $self->{'types'}) |
|
60
|
0 |
40 |
unless (defined $rhsh->{$key} and $rhsh->{$key} =~ /\w/) |
|
61
|
0 |
0 |
if ($self->{'types'}{$key} eq 'text') { } |
|
78
|
0 |
0 |
defined $_ ? : |
|
99
|
0 |
2 |
unless exists $keysh{$_} |
|
101
|
0 |
2 |
unless defined $href->{$key} |
|
103
|
1 |
1 |
if (&Switch::case(qr/^\d+$/)) |
|
107
|
0 |
1 |
if (&Switch::case(qr/^\d+\.\d+$/)) |
|
111
|
0 |
1 |
if (&Switch::case(qr/^\d{4}\-\d{2}\-\d{2}/)) { } |
|
135
|
1 |
0 |
unless -d $file . '_files' |
|
139
|
0 |
1 |
unless my $fh = 'FileHandle'->new(">$file" . '.htm') |
|
145
|
0 |
1 |
unless $fh->open(">$file" . '_files/filelist.xml') |
|
170
|
0 |
40 |
unless exists $keysh{$_} |
|
197
|
1 |
0 |
if ref $dbh eq 'ARRAY' |
|
202
|
0 |
1 |
if ('ARRAY' eq ref $query) |
|
212
|
0 |
1 |
unless $fh |
|
292
|
0 |
1 |
if ($NOSUBTOTAL) { } |
|
431
|
1 |
0 |
if (defined $arg and ref $arg eq 'ARRAY') { } |