Branch Coverage
blib/lib/Data/Random/Person.pm
Criterion
Covered
Total
%
branch
5
8
62.5
line
true
false
branch
48
1
2
unless
(
$self
->{
'domain'
} =~
/^[a-zA-Z0-9\-\.]+$/ms
)
64
1
0
if
(
&none
(
sub
{
66
0
1
if
(
$self
->{
'mode_id'
}
)
69
0
1
defined
$id
?
: