Branch Coverage

blib/lib/Mac/PropertyList.pm
Criterion Covered Total %
branch 65 104 62.5


line true false branch
200 33 13 if ($text =~ /\A<\?xml/) { }
8 5 elsif ($text =~ /\Abplist/) { }
261 0 8 if (ref $file)
263 1 7 unless (-e $file)
287 0 0 unless (ref $hash eq ref {})
295 0 0 if ref $hash->{$key}
326 0 0 unless (ref $array eq ref [])
356 0 1 if (ref $string)
379 0 0 if (ref $thingy eq ref []) { }
0 0 elsif (ref $thingy eq ref {}) { }
0 0 elsif (!ref($thingy) eq ref {}) { }
426 0 1258 if $source->eof
428 155 1103 if (s[^\s* < (string|date|real|integer|data) > \s*(.*?)\s* ][]sx) { }
1 1102 elsif (s[^\s* < string / > ][]x) { }
41 1061 elsif (s/^\s* < (dict|array) > //x) { }
0 1061 elsif (s[^\s* < dict / > ][]x) { }
1 1060 elsif (s[^\s* < array / > ][]x) { }
15 1045 elsif (s[^\s* < (true|false) /> ][]x) { }
438 41 0 if defined $_ and "" ne $_
471 129 0 if (s[^\s*(.*?)][]s) { }
477 0 0 if $source->eof
488 0 26 if (1 == keys %hash and exists $hash{'CF$UID'}) { }
600 1078 180 if not @{$_[0]{'buffer'};}
628 415 1420 if (@{$self->{'buffer'};}) { }
645 0 0 if @{$_->{'source'};}
669 4 37 wantarray ? :
41 585 if ($ref eq 'array') { }
126 459 elsif ($ref eq 'dict') { }
670 0 126 wantarray ? :
675 680 0 ref $_[0] ? :
685 18 18 defined $_[1] ? :
702 111 5 if (ref $item)
707 3 2 if ($class =~ /array$/) { }
2 0 elsif ($class =~ /dict$/) { }
727 2 0 wantarray ? :
735 7 0 eval { do { $_->can('as_basic_data') } } ? :
775 4 2 exists ${$_[0]->value;}{$_[1]} ? :
784 78 48 if (defined $key) { }
787 78 0 if (exists $hash->{$key}) { }
795 16 0 wantarray ? :
798 2 0 wantarray ? :
806 9 0 eval { do { $v->can('as_basic_data') } } ? :
840 20 49 if eval { do { $v->can("as_perl") } }
889 1 13 unless defined $value
890 0 14 if $value =~ / [[:^xdigit:]] /msx
892 1 13 if length($value) % 2
905 1 1 if (@_ < 2) { }
907 0 1 length $value > 8 ? :
912 0 1 if $integer < 0
914 0 1 ref $integer ? :
917 0 1 if (ref $self) { }
918 0 0 if length($value) % 2