Branch Coverage

blib/lib/Org/To/VCF.pm
Criterion Covered Total %
branch 45 74 60.8


line true false branch
111 1 0 if ($args{'source_file'}) { }
0 0 elsif (defined $args{'source_str'}) { }
131 0 1 if ($args{'target_file'}) { }
142 1 0 if ($args->{'default_country'})
145 0 1 unless $pc
162 0 2 if ($str =~ /^\+/) { }
167 2 0 if ($self->{'_cccode'}) { }
178 2 4 unless ref $vals eq 'ARRAY'
179 0 6 if (log_is_trace())
182 0 0 &blessed($_) && $_->isa('Org::Element') ? :
187 1 5 if ($key =~ /^((?:full\s?)?name | nama(?:\slengkap)?)$/xi) { }
1 4 elsif ($key =~ /^(birthday | ultah|ulang\stahun|(?:tanggal\s|tgg?l\s)?lahir)$/xi) { }
2 2 elsif ($key =~ /(?:phone|cell|portable|mobile|mob|\bph\b|\bf\b|fax) | (?:te?l[pf](on)|selul[ae]r|\bfaks|\bhp\b|\bhape\b) /xi) { }
0 2 elsif ($key =~ /^((?:e[-]?mail|mail) | (?:i[ -]?mel|surel))$/xi) { }
197 1 2 if $_->isa('Org::Element::Timestamp')
201 1 0 if (@ts) { }
207 0 0 if ($textval =~ /(\d{4}-\d{2}-\d{2})/)
218 0 2 if ($key =~ /fax | faks/xi) { }
2 0 elsif ($key =~ /(?:cell|hand|portable|mob) | (?:sel|hp|hape) /xi) { }
0 0 elsif ($key =~ /(?:wo?rk|office|ofc) | (?:kerja|krj|kantor|ktr) /xi) { }
0 0 elsif ($key =~ /(?:home) | (?:rumah|rmh) /xi) { }
249 2 0 if ($self->export_notes and $fields->{'_num_notes'}++ < 3)
250 1 1 $fields->{'NOTE'} ? :
2 0 $key ? :
254 1 1 $fields->{'_num_notes'} == 1 ? :
277 2 4 if $k =~ /^_/
279 3 1 if (not ref $v) { }
300 0 1 if (log_is_trace())
309 0 4 if $_->isa('Org::Element::Headline')
316 0 4 if ($c->isa('Org::Element::Drawer') and $c->name eq 'PROPERTIES') { }
4 0 elsif ($c->isa('Org::Element::List')) { }
324 4 2 if ($c2->desc_term) { }
331 1 1 if $val =~ s/\A\s*[+-]\s+(\S+?):(.+)/$2/
332 1 1 if ($key) { }
346 1 0 if $fields->{'_has_contact'}
358 1 1 if ($elem->isa('Org::Element::Headline')) { }
1 0 elsif ($elem->isa('Org::Document')) { }