| line |
true |
false |
branch |
|
49
|
5 |
1 |
if (ref $opts eq "HASH")
|
|
54
|
0 |
5 |
unless ref $data eq "HASH"
|
|
57
|
0 |
9 |
unless ref $data->{$tagname} eq "ARRAY"
|
|
58
|
0 |
9 |
unless scalar @{$data->{$tagname};}
|
|
61
|
0 |
10 |
unless ref $entry eq "HASH"
|
|
65
|
0 |
10 |
unless scalar keys %keys == 2
|
|
66
|
0 |
10 |
unless &all(sub {
|
|
68
|
0 |
10 |
unless ref \$entry->{'rewrite'} eq "SCALAR"
|
|
69
|
0 |
10 |
unless ref $entry->{'fields'} eq "ARRAY"
|
|
71
|
0 |
10 |
unless scalar @{$entry->{'fields'};}
|
|
111
|
5 |
1 |
if ($self->{'Filter_html'})
|
|
120
|
0 |
6 |
unless open my $fh, "<", $self->{'Input'}
|
|
137
|
21 |
182 |
if (my($text) = $field =~ /^event \s+ (.+)/x) { }
|
|
|
21 |
161 |
elsif ($field =~ /^endevent \z/x) { }
|
|
145
|
104 |
57 |
if ($self->{'Filter_html'})
|
|
148
|
31 |
73 |
if (@html)
|
|
154
|
33 |
128 |
$exists ? :
|
|
158
|
13 |
8 |
if ($self->{'Filter_html'})
|
|
171
|
21 |
0 |
if $day =~ /^0?(.+)$/
|
|
181
|
5 |
1 |
if ($self->{'Filter_html'})
|