| 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')) |
|
56
|
0 |
0 |
if ($other->isa('User::Identity')) |
|
57
|
0 |
0 |
unless my $emails = $other->collection('emails') |
|
58
|
0 |
0 |
unless my(@roles) = $emails->roles |
|
68
|
0 |
0 |
if @_ |
|
69
|
0 |
0 |
if defined $self->{'MI_comment'} |
|
71
|
0 |
0 |
unless my $user = $self->user |
|
72
|
0 |
0 |
unless my $full = $user->fullName |
|
73
|
0 |
0 |
$self->phrase eq $full ? : |
|
79
|
0 |
0 |
if defined $self->{'MI_charset'} |
|
81
|
0 |
0 |
unless my $user = $self->user |
|
89
|
0 |
0 |
if defined $self->{'MI_language'} |
|
91
|
0 |
0 |
unless my $user = $self->user |
|
99
|
0 |
0 |
if defined $self->{'MI_domain'} |
|
101
|
0 |
0 |
unless my $address = $self->{'MI_address'} |
|
102
|
0 |
0 |
$address =~ s/.*?\@// ? : |
|
108
|
0 |
0 |
if defined $self->{'MI_address'} |
|
110
|
0 |
0 |
if (my $username = $self->username) |
|
111
|
0 |
0 |
if (my $domain = $self->domain) |
|
112
|
0 |
0 |
if ($username =~ m[[^a-zA-Z0-9!#\$%&'*+\-/=?^_`{|}~.]]) |
|
123
|
0 |
0 |
if index($name, '@') >= 0 |
|
126
|
0 |
0 |
defined $user ? : |
|
134
|
0 |
0 |
if (not defined $location) { } |
|
|
0 |
0 |
elsif (not ref $location) { } |
|
135
|
0 |
0 |
unless my $user = $self->user |
|
137
|
0 |
0 |
@locs ? : |
|
140
|
0 |
0 |
unless my $user = $self->user |
|
151
|
0 |
0 |
if defined $self->{'MI_organization'} |
|
153
|
0 |
0 |
unless my $location = $self->location |
|
161
|
0 |
0 |
if defined $self->{'MI_phrase'} |
|
162
|
0 |
0 |
unless my $user = $self->user |
|
163
|
0 |
0 |
unless my $full = $user->fullName |
|
172
|
0 |
0 |
if defined $self->{'MI_username'} |
|
174
|
0 |
0 |
if (my $address = $self->{'MI_address'}) |
|
179
|
0 |
0 |
unless my $user = $self->user |