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') { } |