Branch Coverage

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


line true false branch
60 1 1 unless $self->starts_with($prefix)
68 1 1 unless $self->ends_with($suffix)
134 2 1 if ($self->starts_with(' ') or $self->starts_with("\t"))
143 2 1 if ($self->ends_with(' ') or $self->ends_with("\t"))
188 10 16 if $self->string =~ /^(on|yes|true)$/i
189 10 6 if $self->string =~ /^(off|no|false)$/i
199 5 1 if $self->string =~ /\s+/ or $self->string eq ''
212 1 2 if ($count < 0)
223 1 2 if ($count < 0)
259 3 3 $begins_underscore ? :
291 1 1 if defined $position
298 1 1 if defined $position
321 3 1 unless defined $char
322 2 2 if $count <= $self->length
330 3 1 unless defined $char
331 2 2 if $count <= $self->length
339 4 1 unless defined $char
340 2 3 if $count <= $self->length
443 2 1 if (defined $keep) { }