| line |
true |
false |
branch |
|
41
|
0 |
1 |
if $self->{'UII_name'} eq "-x-" |
|
50
|
0 |
0 |
if $other->isa(__PACKAGE__) |
|
52
|
0 |
0 |
if $other->isa("Mail::Address") |
|
55
|
0 |
0 |
unless $other->isa("User::Identity") |
|
58
|
0 |
0 |
unless my $emails = $other->collection("emails") |
|
59
|
0 |
0 |
unless my(@roles) = $emails->roles |
|
67
|
0 |
0 |
if @_ |
|
68
|
0 |
0 |
if defined $self->{'MI_comment'} |
|
70
|
0 |
0 |
unless my $user = $self->user |
|
71
|
0 |
0 |
unless my $full = $user->fullName |
|
72
|
0 |
0 |
$self->phrase eq $full ? : |
|
78
|
0 |
0 |
if defined $self->{'MI_charset'} |
|
81
|
0 |
0 |
defined $user ? : |
|
87
|
0 |
0 |
if defined $self->{'MI_language'} |
|
90
|
0 |
0 |
defined $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, "\@") != -1 |
|
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 |
|
147
|
0 |
0 |
if defined $self->{'MI_organization'} |
|
149
|
0 |
0 |
unless my $location = $self->location |
|
157
|
0 |
0 |
if defined $self->{'MI_phrase'} |
|
160
|
0 |
0 |
defined $user ? : |
|
167
|
0 |
0 |
if defined $self->{'MI_username'} |
|
169
|
0 |
0 |
if (my $address = $self->{'MI_address'}) |
|
175
|
0 |
0 |
defined $user ? : |