Branch Coverage

blib/lib/Data/GUID.pm
Criterion Covered Total %
branch 20 20 100.0


line true false branch
85 39 2 defined $value ? :
86 6 35 if $length != 16
132 57 16 unless $string =~ /$regex/
165 2 28 if eval { do { $value->isa("Data::GUID") } }
167 24 4 defined $value ? :
170 4 24 if (my $ref = ref $value)
177 12 51 if $guid
263 6 2 eval { do { $other->isa('Data::GUID') } } ? :
283 1 5 $_[2] ? :
343 2 12 $eval ? :