| line |
true |
false |
branch |
|
66
|
1 |
42 |
if ref $_ eq 'HASH' |
|
67
|
0 |
43 |
if ref $_ eq 'ARRAY' |
|
104
|
0 |
0 |
if (grep {$_ eq 'uid';} @mandatory and not defined $self->properties->{'uid'} and $self->auto_uid) |
|
117
|
1 |
73 |
unless $self->properties->{$name} and @{$self->properties->{$name};} |
|
120
|
6 |
284 |
if $a eq 'version' |
|
125
|
10 |
274 |
if $b eq 'version' |
|
240
|
0 |
361 |
unless defined $prop |
|
242
|
4 |
357 |
unless ($self->is_property($prop) or $prop =~ /^x-/i) |
|
246
|
264 |
97 |
if ($self->is_unique($prop)) |
|
252
|
326 |
35 |
unless ref $val eq 'ARRAY' |
|
281
|
0 |
13 |
if (@_ % 2) |
|
519
|
48 |
18 |
if (my $class = $_generic{lc $type}) { } |
|
|
18 |
0 |
elsif (my $sub = $self->can('_parse_' . lc($type))) { } |
|
563
|
0 |
5 |
unless exists $_action_map{$action} |
|
569
|
0 |
5 |
if $@ |
|
584
|
0 |
48 |
if $@ |
|
604
|
189 |
8 |
if (not $parent->vcal10 and !($$occurence{'param'} && defined $$occurence{'param'}{'VALUE'}) || $$occurence{'param'}{'VALUE'} eq 'TEXT') |
|
616
|
30 |
285 |
if ($$occurence{'param'}) { } |