Branch Coverage

blib/lib/User/Identity/Location.pm
Criterion Covered Total %
branch 24 32 75.0


line true false branch
64 2 1 if defined $self->{'UIL_country'}
66 0 1 unless my $cc = $self->countryCode
69 1 0 if $@
86 0 3 unless my $phone = $self->{'UIL_phone'}
87 2 1 ref $phone ? :
88 1 2 wantarray ? :
95 0 3 unless my $fax = $self->{'UIL_fax'}
96 2 1 ref $fax ? :
97 1 2 wantarray ? :
108 1 1 if ($address = $self->pobox) { }
112 0 2 unless defined $city and defined $address
115 1 0 defined $cc ? :
1 1 defined $country ? :
120 1 1 if (defined $org) { }
122 2 0 if ($cc eq 'nl') { }
123 2 0 if defined $pc and $pc =~ /(\d{4})\s*([a-zA-Z]{2})/