Branch Coverage

blib/lib/STIX/Util.pm
Criterion Covered Total %
branch 6 18 33.3


line true false branch
24 0 3 unless $id =~ /--/
35 0 1 unless $object->can("STIX_OBJECT")
44 0 1 unless $object->can("STIX_OBJECT")
53 0 1 unless $object->can("STIX_OBJECT")
62 0 0 unless $object->can("MARKING_TYPE")
71 0 9 if (ref $file eq "GLOB")
76 0 9 unless open my $fh, "<", $file
89 0 0 if (ref $file eq 'GLOB') { }
93 0 0 unless open $fh, ">", $file