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'}) { }
132 0 1 if ($args{'target_file'}) { }
143 1 0 if ($$args{'default_country'})
146 0 1 unless $pc
163 0 2 if ($str =~ /^\+/) { }
168 2 0 if ($$self{'_cccode'}) { }
179 2 4 unless ref $vals eq 'ARRAY'
180 0 6 if ($Org::To::VCF::log->is_trace)
181 0 0 blessed $_ && $_->isa('Org::Element') ? :
188 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) { }
198 1 2 if $_->isa('Org::Element::Timestamp')
202 1 0 if (@ts) { }
208 0 0 if ($textval =~ /(\d{4}-\d{2}-\d{2})/)
219 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) { }
250 2 0 if ($self->export_notes and $$fields{'_num_notes'}++ < 3)
251 1 1 $$fields{'NOTE'} ? :
2 0 $key ? :
253 1 1 $$fields{'_num_notes'} == 1 ? :
278 2 4 if $k =~ /^_/
280 3 1 if (not ref $v) { }
301 0 1 if ($Org::To::VCF::log->is_trace)
309 0 4 if $_->isa('Org::Element::Headline')
317 0 4 if ($c->isa('Org::Element::Drawer') and $c->name eq 'PROPERTIES') { }
4 0 elsif ($c->isa('Org::Element::List')) { }
325 4 2 if ($c2->desc_term) { }
332 1 1 if $val =~ s/\A\s*[+-]\s+(\S+?):(.+)/$2/
333 1 1 if ($key) { }
347 1 0 if $$fields{'_has_contact'}
359 1 1 if ($elem->isa('Org::Element::Headline')) { }
1 0 elsif ($elem->isa('Org::Document')) { }