| line |
true |
false |
branch |
|
38
|
0 |
1 |
if $self->{'UII_name'} eq "-x-" |
|
46
|
0 |
0 |
if $other->isa("Mail::Identity") |
|
48
|
0 |
0 |
if ($other->isa("Mail::Address")) |
|
53
|
0 |
0 |
if ($other->isa("User::Identity")) |
|
54
|
0 |
0 |
unless my $emails = $other->collection("emails") |
|
55
|
0 |
0 |
unless my(@roles) = $emails->roles |
|
65
|
0 |
0 |
if @_ |
|
66
|
0 |
0 |
if defined $self->{'MI_comment'} |
|
68
|
0 |
0 |
unless my $user = $self->user |
|
69
|
0 |
0 |
unless my $full = $user->fullName |
|
70
|
0 |
0 |
$self->phrase eq $full ? : |
|
76
|
0 |
0 |
if defined $self->{'MI_charset'} |
|
78
|
0 |
0 |
unless my $user = $self->user |
|
86
|
0 |
0 |
if defined $self->{'MI_language'} |
|
88
|
0 |
0 |
unless my $user = $self->user |
|
96
|
0 |
0 |
if defined $self->{'MI_domain'} |
|
98
|
0 |
0 |
unless my $address = $self->{'MI_address'} |
|
99
|
0 |
0 |
$address =~ s/.*?\@// ? : |
|
105
|
0 |
0 |
if defined $self->{'MI_address'} |
|
107
|
0 |
0 |
if (my $username = $self->username) |
|
108
|
0 |
0 |
if (my $domain = $self->domain) |
|
109
|
0 |
0 |
if ($username =~ m[[^a-zA-Z0-9!#\$%&'*+\-/=?^_`{|}~.]]) |
|
120
|
0 |
0 |
if index($name, "\@") >= 0 |
|
123
|
0 |
0 |
defined $user ? : |
|
131
|
0 |
0 |
if (not defined $location) { } |
|
|
0 |
0 |
elsif (not ref $location) { } |
|
132
|
0 |
0 |
unless my $user = $self->user |
|
134
|
0 |
0 |
@locs ? : |
|
137
|
0 |
0 |
unless my $user = $self->user |
|
148
|
0 |
0 |
if defined $self->{'MI_organization'} |
|
150
|
0 |
0 |
unless my $location = $self->location |
|
158
|
0 |
0 |
if defined $self->{'MI_phrase'} |
|
159
|
0 |
0 |
unless my $user = $self->user |
|
160
|
0 |
0 |
unless my $full = $user->fullName |
|
169
|
0 |
0 |
if defined $self->{'MI_username'} |
|
171
|
0 |
0 |
if (my $address = $self->{'MI_address'}) |
|
176
|
0 |
0 |
unless my $user = $self->user |