Branch Coverage

blib/lib/Mo/utils.pm
Criterion Covered Total %
branch 52 52 100.0


line true false branch
21 2 6 unless (exists $self->{$key})
25 3 3 if (ref $self->{$key} ne "ARRAY")
41 1 1 unless ($obj->isa($class))
52 2 4 if _check_key($self, $key)
54 2 2 if (not $self->{$key} =~ /^\d+$/ms or $self->{$key} != 0 and $self->{$key} != 1)
66 2 2 if _check_key($self, $key)
68 1 1 if (ref $self->{$key} ne "CODE")
80 2 5 if _check_key($self, $key)
82 3 2 unless (&blessed($self->{$key}))
92 1 2 ref $self->{$key} eq '' ? :
2 1 ref $self->{$key} ne '' ? :
96 1 1 unless ($self->{$key}->isa($class))
108 2 3 if _check_key($self, $key)
110 1 2 if (length $self->{$key} > $max_length)
122 2 5 if _check_key($self, $key)
124 1 4 unless ($self->{$key} =~ /^[-+]?\d+(\.\d+)?$/ms)
142 1 2 if ($item_hr->{$item} > 1)
153 2 1 unless (exists $self->{$key} and defined $self->{$key})
163 1 3 if _check_key($self, $key)
165 1 2 unless (defined $string_base)
168 1 1 unless ($self->{$key} =~ /^$string_base/)
181 1 5 if _check_key($self, $key)
183 1 4 unless (defined $strings_ar)
186 1 3 if (ref $strings_ar ne "ARRAY")
189 1 2 if (&none(sub { $self->{$key} eq $_; } , @{$strings_ar;}))
202 12 27 unless (exists $self->{$key} and defined $self->{$key})