| line |
true |
false |
branch |
|
61
|
0 |
0 |
if ($Self->{'type'} ne 'vcard')
|
|
88
|
0 |
0 |
if (ref $FileR) { }
|
|
91
|
0 |
0 |
unless open $Fh, $FileR
|
|
98
|
0 |
0 |
unless ref $FileR
|
|
248
|
0 |
0 |
ref $Value ? :
|
|
249
|
0 |
0 |
if (/[\x80-\xff]/u)
|
|
256
|
0 |
0 |
if (my $VFields = $VExpand{$_->{'name'}})
|
|
264
|
0 |
0 |
if (ref $Encoding and lc $Encoding->[0] eq 'b')
|
|
270
|
0 |
0 |
if (my $Type = $_->{'params'}{'type'})
|
|
271
|
0 |
0 |
unless ref $Type
|
|
274
|
0 |
0 |
if (my $ServiceType = $_->{'params'}{'x-service-type'})
|
|
275
|
0 |
0 |
unless ref $ServiceType
|
|
281
|
0 |
0 |
if $_->{'group'}
|
|
286
|
0 |
0 |
if (my $Labels = $Props->{'x-ablabel'})
|
|
287
|
0 |
0 |
$_->{'group'} ? :
|
|
289
|
0 |
0 |
if $_ eq 'x-ablabel'
|
|
291
|
0 |
0 |
if (my $Label = $LabelMap{$_->{'group'} // ''})
|
|
296
|
0 |
0 |
if $LabelV =~ /^_\$\!<([^>]*)/u
|
|
297
|
0 |
0 |
if (my $TypeP = $ABLabelTypeMap{$LabelV})
|
|
299
|
0 |
0 |
unless grep {$_ eq $TypeP;} @$TypeList
|
|
308
|
0 |
0 |
if ($Version and $Version->[0] >= 4)
|
|
311
|
0 |
0 |
if (my $Items = $Props->{$Prop})
|
|
313
|
0 |
0 |
if ($_->{'value'} =~ s/^($ProtoRE)//u)
|
|
316
|
0 |
0 |
if (not $_->{'params'}{'value'} and $Prop eq 'tel')
|
|
379
|
0 |
0 |
unless $_ and $Map->{$_}
|
|
394
|
0 |
0 |
if $NumItems <= 1
|
|
399
|
0 |
0 |
if @_ > 1
|
|
408
|
0 |
0 |
if @_ and $Self->{'ReadOnly'}
|
|
414
|
0 |
0 |
if (not $V and @_)
|
|
418
|
0 |
0 |
if (my $VFields = $VExpand{$Prop})
|
|
425
|
0 |
0 |
if (not @_) { }
|
|
426
|
0 |
0 |
$V ? :
|
|
434
|
0 |
0 |
if (defined $_)
|
|
443
|
0 |
0 |
if (!defined($_) || $_ eq '' and not $V->{'values'}) { }
|
|
453
|
0 |
0 |
if ($V->{'values'} and &all(sub {
$$_ eq '';
}
, @{$$V{'values'};}))
|
|
461
|
0 |
0 |
if $Prop eq 'n' or $Prop eq 'org'
|
|
471
|
0 |
0 |
if (not @_) { }
|
|
472
|
0 |
0 |
unless $_
|
|
474
|
0 |
0 |
if (/^(\d{4})-(\d{2})-(\d{2})(?:T|$)/u)
|
|
476
|
0 |
0 |
if $Y eq '1604'
|
|
481
|
0 |
0 |
if (/^(\d{4}|--)(\d{2})(\d{2})(?:T|$)/u)
|
|
483
|
0 |
0 |
if $Y eq '--'
|
|
484
|
0 |
0 |
if $Y eq '1604'
|
|
491
|
0 |
0 |
if $_ eq '0000-00-00'
|
|
496
|
0 |
0 |
if ($Self->V('version') >= 4)
|
|
498
|
0 |
0 |
if $Y eq '0000'
|
|
511
|
0 |
0 |
unless $Self->V('n', $_)
|
|
515
|
0 |
0 |
if $Suffixes
|
|
518
|
0 |
0 |
unless ($NewFN)
|
|
521
|
0 |
0 |
unless ($NewFN)
|
|
525
|
0 |
0 |
unless ($NewFN)
|
|
538
|
0 |
0 |
if (not @_) { }
|
|
539
|
0 |
0 |
unless $_
|
|
561
|
0 |
0 |
if (not @_) { }
|
|
595
|
0 |
0 |
if ($Prop eq 'email' or $Prop eq 'tel') { }
|
|
|
0 |
0 |
elsif ($Prop eq 'adr') { }
|
|
|
0 |
0 |
elsif ($Prop eq 'online') { }
|
|
598
|
0 |
0 |
if $N->{'contact_type'} eq $E->{'contact_type'} or $N->{'value'} eq $E->{'value'}
|
|
603
|
0 |
0 |
if $N->{'contact_type'} eq $E->{'contact_type'} or &all(sub {
($N->{$_} // '') eq $E->{$_};
}
, @VItemADR)
|
|
608
|
0 |
0 |
if $N->{'contact_type'} eq ($E->{'online_type'} // $E->{'contact_type'}) and $N->{'value'} eq ($E->{'online_value'} // $E->{'value'})
|
|
619
|
0 |
0 |
if (my $Maps = $VCardTypeMap{$Prop}) { }
|
|
620
|
0 |
0 |
if (my $ParamType = $Maps->[1]{$N->{'contact_type'}}) { }
|
|
|
0 |
0 |
elsif ($N->{'contact_type'} eq 'other') { }
|
|
627
|
0 |
0 |
if $Prop eq 'adr'
|
|
649
|
0 |
0 |
if (my $Group = $E->{'group'})
|
|
651
|
0 |
0 |
if $_->{'name'} eq 'label'
|
|
655
|
0 |
0 |
unless (@Labels)
|
|
658
|
0 |
0 |
if ($EType and $Labels)
|
|
661
|
0 |
0 |
if $Type and $Type eq $EType
|
|
671
|
0 |
0 |
if length $a >= 3
|
|
679
|
0 |
0 |
ref $Value ? :
|
|
694
|
0 |
0 |
if (my $Maps = $VCardTypeMap{$Prop}) { }
|
|
|
0 |
0 |
elsif ($Prop eq 'online') { }
|
|
699
|
0 |
0 |
if (my $ParamType = $Maps->[1]{$Type})
|
|
704
|
0 |
0 |
if ($Prop eq 'adr')
|
|
709
|
0 |
0 |
if $N->{'note'}
|
|
710
|
0 |
0 |
if ($N->{'pref'})
|
|
722
|
0 |
0 |
ref $NewMap eq 'CODE' ? :
|
|
729
|
0 |
0 |
if ($N->{'note'})
|
|
732
|
0 |
0 |
if ($N->{'pref'})
|
|
744
|
0 |
0 |
if @_ and $Self->{'ReadOnly'}
|
|
749
|
0 |
0 |
if (not @_) { }
|
|
755
|
0 |
0 |
if ($Seen{$VKN}) { }
|
|
761
|
0 |
0 |
if grep {$_ eq 'pref';} @{$_->{'params'}{'type'} // [];}
|
|
762
|
0 |
0 |
if $_->{'params'}{$NoteParamName}
|
|
783
|
0 |
0 |
if (my $E = delete $EMap{VKN($N, values %$TypeMap)}) { }
|
|
791
|
0 |
0 |
if ($Prop ne 'online' and $E and $Self->VIsSame($Prop, $E, $N)) { }
|
|
807
|
0 |
0 |
if (my $Note = $New->{'note'}) { }
|
|
813
|
0 |
0 |
if ($New->{'pref'}) { }
|
|
831
|
0 |
0 |
if ($Prop eq 'email' or $Prop eq 'tel' or $Prop eq 'adr') { }
|
|
|
0 |
0 |
elsif ($Prop eq 'online') { }
|
|
847
|
0 |
0 |
if $Prop eq 'email'
|
|
873
|
0 |
0 |
if @_ and $Self->{'ReadOnly'}
|
|
875
|
0 |
0 |
if (not @_) { }
|
|
879
|
0 |
0 |
unless $Props->{'x-addressbookserver-member'}
|
|
899
|
0 |
0 |
if @_
|
|
900
|
0 |
0 |
unless $Self->{'ABGroups'}
|
|
921
|
0 |
0 |
if (@_)
|