Branch Coverage

blib/lib/Object/String.pm
Criterion Covered Total %
branch 38 38 100.0


line true false branch
61 1 1 unless $self->starts_with($prefix)
69 1 1 unless $self->ends_with($suffix)
135 2 1 if ($self->starts_with(' ') or $self->starts_with("\t"))
144 2 1 if ($self->ends_with(' ') or $self->ends_with("\t"))
189 10 16 if $self->string =~ /^(on|yes|true)$/i
190 10 6 if $self->string =~ /^(off|no|false)$/i
200 5 1 if $self->string =~ /\s+/ or $self->string eq ''
213 1 2 if ($count < 0)
224 1 2 if ($count < 0)
255 3 3 $begins_underscore ? :
287 1 1 if defined $position
294 1 1 if defined $position
317 3 1 unless defined $char
318 2 2 if $count <= $self->length
326 3 1 unless defined $char
327 2 2 if $count <= $self->length
335 4 1 unless defined $char
336 2 3 if $count <= $self->length
431 1 2 unless defined $keep