| line |
true |
false |
branch |
|
43
|
0 |
1 |
unless +(shift())->{'UI_charset'} |
|
48
|
5 |
0 |
unless $self->{'UI_nickname'} |
|
55
|
2 |
7 |
unless $self->{'UI_firstname'} |
|
62
|
2 |
4 |
if defined $self->{'UI_initials'} |
|
64
|
4 |
0 |
if (my $firstname = $self->firstname) |
|
87
|
0 |
10 |
if defined $self->{'UI_full_name'} |
|
92
|
0 |
10 |
if defined $first and not defined $surname |
|
93
|
0 |
10 |
if not defined $first and defined $surname |
|
97
|
2 |
8 |
unless length $full |
|
108
|
0 |
3 |
if defined $self->{'UI_formal_name'} |
|
113
|
3 |
0 |
if defined $firstname |
|
157
|
0 |
3 |
if defined $self->{'UI_courtesy'} |
|
159
|
1 |
0 |
$self->isFemale ? : |
|
|
2 |
1 |
$self->isMale ? : |
|
165
|
2 |
1 |
if exists $table->{$lang} |
|
168
|
0 |
1 |
if exists $table->{$lang} |
|
181
|
2 |
1 |
unless +(shift())->{'UI_language'} |
|
190
|
5 |
1 |
if (my $gender = $self->{'UI_gender'}) |
|
194
|
0 |
1 |
if (my $courtesy = $self->{'UI_courtesy'}) |
|
197
|
0 |
0 |
if exists $male_courtesy{$courtesy} |
|
207
|
3 |
1 |
if (my $gender = $self->{'UI_gender'}) |
|
211
|
0 |
1 |
if (my $courtesy = $self->{'UI_courtesy'}) |
|
214
|
0 |
0 |
if exists $female_courtesy{$courtesy} |
|
228
|
0 |
0 |
if ($birth =~ /^\s*(\d{4})[-\s]*(\d{2})[-\s]*(\d{2})\s*$/) |
|
234
|
0 |
0 |
unless ($@) |
|
236
|
0 |
0 |
if (defined $year) |
|
237
|
0 |
0 |
defined $month ? : |
|
251
|
0 |
0 |
unless my $birth = (shift())->birth |
|
258
|
0 |
0 |
if $month > $tomonth or $month == $tomonth and $day >= $today |