Branch Coverage

blib/lib/JSON/DWIW.pm
Criterion Covered Total %
branch 62 138 44.9


line true false branch
403 81 19 unless $params
405 0 19 unless (defined $params and UNIVERSAL::isa($params, 'HASH'))
413 21 283 if (exists $$params{$field})
450 49 1 if (UNIVERSAL::isa($proto, 'JSON::DWIW')) { }
453 10 39 if ($options) { }
454 3 7 if (ref $proto and $proto->isa('HASH'))
455 3 0 if (UNIVERSAL::isa($options, 'HASH'))
463 25 14 ref $proto ? :
476 50 0 if ($stats_data)
487 1 49 if (defined $error_msg and $$self{'use_exceptions'})
490 1 48 wantarray ? :
509 1 0 if ($stats_data)
522 0 0 if ($^O eq 'linux')
524 0 0 if (-e $statm_path)
525 0 0 unless open my $in_fh, '<', $statm_path
587 58 2 if (UNIVERSAL::isa($proto, 'JSON::DWIW')) { }
590 4 54 if ($options) { }
591 0 4 if (ref $proto and $proto->isa('HASH'))
592 0 0 if (UNIVERSAL::isa($options, 'HASH'))
600 17 37 ref $proto ? :
609 18 42 if (%$self) { }
620 0 56 if (defined $JSON::DWIW::LastError and $$self{'use_exceptions'})
624 5 51 wantarray ? :
650 22 0 if (UNIVERSAL::isa($proto, 'JSON::DWIW')) { }
653 0 22 if ($options) { }
654 0 0 if (ref $proto and $proto->isa('HASH'))
655 0 0 if (UNIVERSAL::isa($options, 'HASH'))
663 1 21 ref $proto ? :
672 0 22 if (%$self) { }
683 0 22 if (defined $JSON::DWIW::LastError and $$self{'use_exceptions'})
687 20 2 wantarray ? :
707 0 0 if (UNIVERSAL::isa($proto, 'JSON::DWIW')) { }
711 0 0 if ($options) { }
712 0 0 if (ref $proto and $proto->isa('HASH'))
713 0 0 if (UNIVERSAL::isa($options, 'HASH'))
721 0 0 ref $proto ? :
731 0 0 unless (open $out_fh, '>', $file)
733 0 0 if ($$self{'use_exceptions'}) { }
736 0 0 wantarray ? :
740 0 0 if ($] >= 5.008)
749 0 0 if ($stats_data)
761 0 0 if (defined $error_msg and $$self{'use_exceptions'})
765 0 0 if ($error_msg)
766 0 0 wantarray ? :
772 0 0 wantarray ? :
783 0 0 if ($error_msg)
784 0 0 wantarray ? :
807 2 51 if (ref $self)
839 0 0 if (ref $self)
873 0 11 if (ref $self)
908 0 52 unless defined $text
923 0 0 unless defined $text
940 0 78 unless defined $data
942 5 73 unless $params and UNIVERSAL::isa($params, 'HASH')
949 52 26 unless ($ref)
954 0 26 $$params{'pretty'} ? :
955 0 26 $$params{'pretty'} ? :
956 0 26 $$params{'pretty'} && $level ? :
957 0 26 $$params{'pretty'} && $level >= 2 ? :
960 10 16 if ($ref eq 'ARRAY') { }
16 0 elsif ($ref eq 'HASH') { }
974 26 16 unless $first
977 10 32 if ($this_ref and $this_ref eq 'ARRAY')
1029 0 5 if ($params) { }
1037 0 5 if ($ref and $ref eq 'ARRAY')
1049 0 0 unless defined $elements
1057 0 0 unless (ref $elements)
1067 0 0 if (defined $attrs and UNIVERSAL::isa($attrs, 'HASH')) { }
1080 0 0 if (@rest) { }