| line |
true |
false |
branch |
|
79
|
0 |
0 |
if (ref $val eq 'HASH') { } |
|
81
|
0 |
0 |
unless (grep {$_ eq lc $param;} 'content', @params) |
|
169
|
7 |
37 |
if (@{$self->errlog;}) { } |
|
204
|
0 |
0 |
unless $$value{'value'} |
|
207
|
0 |
0 |
if (not defined $$value{'domain'}) { } |
|
|
0 |
0 |
elsif ($$value{'domain'} eq 'ref') { } |
|
|
0 |
0 |
elsif ($$value{'domain'} eq 'param') { } |
|
210
|
0 |
0 |
if ($$value{'options'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($$value{'options'} eq 'HASH') { } |
|
215
|
0 |
0 |
if (ref $val) { } |
|
216
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Net::ICal::Property')) { } |
|
241
|
0 |
0 |
if $xkey eq 'content' |
|
276
|
0 |
0 |
if defined $self->get($prop) |
|
297
|
0 |
0 |
unless (defined $self->get($property)) |
|
303
|
0 |
0 |
if (defined $value) |
|
304
|
0 |
0 |
unless ($self->get($property) eq $value) |
|
327
|
0 |
0 |
if (defined $self->get($property)) |
|
352
|
0 |
0 |
if (defined $val1 and defined $val2) |
|
415
|
0 |
44 |
if ($@) |
|
481
|
0 |
44 |
unless ($comp) |
|
487
|
0 |
44 |
unless ($self) |
|
489
|
0 |
0 |
if /^END/ |
|
498
|
0 |
141 |
unless @$lines |
|
502
|
27 |
114 |
if ($line =~ /^BEGIN:/) { } |
|
|
44 |
70 |
elsif ($line =~ /^END:(\w+)$/) { } |
|
513
|
20 |
7 |
if ($foo) { } |
|
517
|
7 |
0 |
if (ref $@) { } |
|
539
|
2 |
68 |
unless (defined $self->get_meta('type', $class)) |
|
546
|
30 |
38 |
if (not defined $self->get_meta('domain', $class)) { } |
|
|
38 |
0 |
elsif ($self->get_meta('domain', $class) eq 'ref') { } |
|
|
0 |
0 |
elsif ($self->get_meta('domain', $class) eq 'param') { } |
|
548
|
0 |
30 |
if ($old) |
|
559
|
6 |
32 |
if ($self->get_meta('options', $class) eq 'ARRAY') { } |
|
562
|
0 |
6 |
unless (defined $prop) |
|
566
|
3 |
3 |
if (defined $val) { } |
|
578
|
0 |
32 |
unless (defined $prop) |
|
590
|
0 |
0 |
$paramstr ? : |
|
604
|
8 |
36 |
if (@{$self->errlog;}) |
|
611
|
37 |
7 |
if ($self->validate) { } |
|
614
|
8 |
29 |
if defined $warnings |
|
619
|
0 |
7 |
if defined $warnings |
|
686
|
6 |
32 |
unless ($class =~ /::/) |
|
691
|
32 |
6 |
if (not $@) { } |
|
692
|
0 |
32 |
if ($class->can('new_from_ical')) { } |