| line |
true |
false |
branch |
|
86
|
0 |
0 |
unless $fh->close
|
|
102
|
0 |
0 |
unless ($this)
|
|
103
|
0 |
0 |
unless $line =~ /\A--- BEGIN (.+)\Z/
|
|
110
|
0 |
0 |
if ($line =~ /\A- BEGIN (.+)\Z/)
|
|
117
|
0 |
0 |
if ($field eq 'email')
|
|
122
|
0 |
0 |
if ($line =~ /\A--- END \Q$$this{'id'}\E\Z/)
|
|
137
|
0 |
0 |
if (my $note = $$person{'note'} // '')
|
|
140
|
0 |
0 |
unless $line =~ /\A([^:]+):\s*(.+?)\Z/
|
|
151
|
0 |
0 |
unless $fields{'use middle'} // 1
|
|
154
|
0 |
0 |
if ($$person{'company'} eq 'true') { }
|
|
157
|
0 |
0 |
length $mname ? :
|
|
|
0 |
0 |
length $lname ? :
|
|
|
0 |
0 |
length $suffix ? :
|
|
163
|
0 |
0 |
unless (length $name)
|
|
179
|
0 |
0 |
if (@emails > 1 and my $default = $fields{'default_email'})
|
|
181
|
0 |
0 |
if ($default =~ m[\A/(.+)/\z]) { }
|
|
189
|
0 |
0 |
if (&$check($emails[$i]))
|
|
190
|
0 |
0 |
if $i != 0
|