Branch Coverage

blib/lib/Markdown/Perl/Options.pm
Criterion Covered Total %
branch 36 54 66.6


line true false branch
72 10 65 if ($k eq 'mode') { }
75 0 65 unless exists $validation{$k}
77 3 62 unless defined $validated_value
90 0 0 if ($k eq 'mode') { }
91 0 0 unless exists $options_modes{$v}
93 0 0 unless exists $validation{$k}
95 0 0 unless defined $validated
104 1 11 if defined $this->{$dest}{'mode'}
105 0 12 unless exists $valid_modes{$mode}
115 0 1147 unless exists $valid_modes{$k}
124 80 1475115 if exists $this->{'local_options'}{$opt}
125 71 1475044 if exists $this->{'options'}{$opt}
126 51 1474993 if (defined $this->{'local_options'}{'mode'}) { }
1469566 5427 elsif (defined $this->{'options'}{'mode'}) { }
130 18 33 if exists $options_modes{$this->{'local_options'}{'mode'}}{$opt}
133 614063 855503 if exists $options_modes{$this->{'options'}{'mode'}}{$opt}
144 16 17 if $_[0] eq "false" or $_[0] eq "" or $_[0] eq 0
145 17 0 if $_[0] eq "true" or $_[0] eq 1
154 15 0 if &any(sub { $_ eq $_[0]; } , @valid)
163 0 0 if defined $re
171 4 2 ref $_[0] eq 'ARRAY' ? :
613 2 7 ref $_[0] eq 'HASH' ? :
615 2 7 unless (&all(sub { /^(.)\1?$/u; } , keys %m))
619 1 6 unless (&all(sub { /^\.?[a-z][-_a-z0-9]*$/iu; } , values %m))
623 4 2 if %m
669 2 0 ref $_[0] eq 'HASH' ? :
738 0 0 if $_[0] =~ /^["'&<>]*$/u