Branch Coverage

lib/CGI/FormBuilder/Messages.pm
Criterion Covered Total %
branch 21 36 58.3


line true false branch
41 3 132 if (my $ref = ref $src) { }
12 120 elsif ($src =~ s/^:+//) { }
1 119 elsif ($src) { }
43 0 3 if $ref eq 'ARRAY' or $ref eq 'SCALAR'
56 0 12 unless $src and $src ne ''
70 0 12 if ($@)
76 0 12 if $@
81 0 12 unless %h2
88 1 0 if (-f $src and -r _ and open M, "<$src")
94 0 13 if /^\s*#/ or /^\s*$/
101 0 1 unless %hash
104 119 16 unless (%hash)
116 0 1093 unless ($key)
117 0 0 if (ref $self) { }
118 0 0 wantarray ? :
127 0 1093 if @_
128 0 1093 unless (exists $self->{$key})
132 2 1091 if (ref $self->{$key} eq 'ARRAY')