| line |
true |
false |
branch |
|
186
|
8 |
13 |
if ($fields[$i] =~ /$names[0]/) |
|
188
|
1 |
7 |
unless @names |
|
209
|
0 |
4 |
unless (@fields = $str =~ /^$bbdb_entry_pat$/ox) |
|
210
|
0 |
0 |
if ($BBDB::debug) |
|
228
|
0 |
0 |
unless $str =~ /^$pat/x |
|
230
|
0 |
0 |
unless $$i[0] eq '\\[' or $$i[0] eq 'nil' |
|
241
|
0 |
32 |
if not defined $fields[$field_index{$i}] or $fields[$field_index{$i}] eq 'nil' |
|
258
|
6 |
4 |
if ($phone[$i + 4]) { } |
|
261
|
0 |
6 |
if @$numbers == 2 |
|
335
|
0 |
27 |
if not defined $_[0] or $_[0] eq '' |
|
340
|
0 |
0 |
if $_[0] eq '' |
|
354
|
6 |
0 |
if (ref $aka and @$aka) { } |
|
366
|
6 |
0 |
if (ref $phone and @$phone) { } |
|
370
|
9 |
6 |
if (ref $$i[1]) { } |
|
382
|
6 |
0 |
if (ref $address and @$address) { } |
|
394
|
0 |
9 |
unless @streets |
|
402
|
6 |
0 |
if (ref $net and @$net) { } |
|
412
|
6 |
0 |
if ($notes) { } |
|
438
|
0 |
8 |
if ($name eq 'all') { } |
|
440
|
0 |
0 |
if @_ == 3 |
|
442
|
0 |
8 |
unless exists $field_names{$name} |
|
444
|
0 |
8 |
if @_ == 3 |
|
455
|
0 |
0 |
unless ref $notes and @$notes |
|
464
|
0 |
1 |
unless ref $notes and @$notes |
|
467
|
0 |
1 |
unless @result == 1 |
|
474
|
1 |
0 |
if (@_ == 1) { } |
|
475
|
0 |
1 |
unless open INFILE, $file |
|
479
|
2 |
2 |
if /^;/ |
|
484
|
2 |
0 |
if ($bbdb->decode($_)) { } |
|
493
|
0 |
0 |
unless open OUTFILE, ">$file" |
|
503
|
0 |
0 |
if @notes |
|
525
|
2 |
1 |
if (ref $number) |
|
528
|
2 |
0 |
if (@numbers == 3) |
|
531
|
0 |
2 |
unless $last eq '0' |
|
545
|
0 |
2 |
unless $country |
|
580
|
0 |
0 |
if $bbdb->part('company') |
|
583
|
0 |
0 |
if $result |