| line |
true |
false |
branch |
|
101
|
0 |
0 |
unless $fh->close
|
|
117
|
0 |
0 |
unless ($this)
|
|
118
|
0 |
0 |
unless $line =~ /\A--- BEGIN (.+)\Z/u
|
|
125
|
0 |
0 |
if ($line =~ /\A- BEGIN (.+)\Z/u)
|
|
132
|
0 |
0 |
if ($field eq 'email')
|
|
137
|
0 |
0 |
if ($line =~ /\A--- END \Q$this->{'id'}\E\Z/u)
|
|
152
|
0 |
0 |
if (my $note = $person->{'note'} // '')
|
|
155
|
0 |
0 |
if $line =~ /^--/u
|
|
161
|
0 |
0 |
unless $line =~ /\A([^:]+):\s*(.+?)\Z/u
|
|
172
|
0 |
0 |
unless $fields{'use middle'} // 1
|
|
175
|
0 |
0 |
if ($person->{'company'} eq 'true') { }
|
|
178
|
0 |
0 |
length $mname ? :
|
|
|
0 |
0 |
length $lname ? :
|
|
|
0 |
0 |
length $suffix ? :
|
|
184
|
0 |
0 |
unless (length $name)
|
|
200
|
0 |
0 |
if (@emails > 1 and my $default = $fields{'default_email'})
|
|
202
|
0 |
0 |
if ($default =~ m[\A/(.+)/\z]u) { }
|
|
210
|
0 |
0 |
if (&$check($emails[$i]))
|
|
211
|
0 |
0 |
if $i != 0
|