| line |
true |
false |
branch |
|
46
|
0 |
1 |
unless $_[0]{'UI_charset'} |
|
51
|
5 |
0 |
unless $self->{'UI_nickname'} |
|
58
|
2 |
7 |
unless $self->{'UI_firstname'} |
|
64
|
2 |
4 |
if defined $self->{'UI_initials'} |
|
66
|
4 |
0 |
if (my $firstname = $self->firstname) |
|
87
|
0 |
10 |
if defined $self->{'UI_full_name'} |
|
91
|
8 |
2 |
if defined $first |
|
92
|
8 |
2 |
if defined $surname |
|
95
|
2 |
8 |
unless length $full |
|
105
|
0 |
3 |
if defined $self->{'UI_formal_name'} |
|
110
|
3 |
0 |
if defined $firstname |
|
151
|
0 |
3 |
if defined $self->{'UI_courtesy'} |
|
153
|
1 |
0 |
$self->isFemale ? : |
|
|
2 |
1 |
$self->isMale ? : |
|
159
|
2 |
1 |
if exists $table->{$lang} |
|
162
|
0 |
1 |
if exists $table->{$lang} |
|
175
|
2 |
1 |
unless $_[0]{'UI_language'} |
|
184
|
5 |
1 |
if (my $gender = $self->{'UI_gender'}) |
|
188
|
0 |
1 |
if (my $courtesy = $self->{'UI_courtesy'}) |
|
191
|
0 |
0 |
if exists $male_courtesy{$courtesy} |
|
201
|
3 |
1 |
if (my $gender = $self->{'UI_gender'}) |
|
205
|
0 |
1 |
if (my $courtesy = $self->{'UI_courtesy'}) |
|
208
|
0 |
0 |
if exists $female_courtesy{$courtesy} |
|
222
|
0 |
2 |
if ($birth =~ /^\s*(\d{4})[-\s]*(\d{2})[-\s]*(\d{2})\s*$/) |
|
228
|
2 |
0 |
unless ($@) |
|
230
|
2 |
0 |
if (defined $year) |
|
231
|
2 |
0 |
defined $month ? : |
|
245
|
0 |
1 |
unless my $birth = (shift())->birth |
|
252
|
1 |
0 |
if $month > $tomonth or $month == $tomonth and $day >= $today |