blib/lib/Test/Stream/Compare/Regex.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 10 | 100.0 |
line | true | false | branch |
---|---|---|---|
16 | 1 | 6 | unless $self->{'input'} |
19 | 1 | 5 | unless rtype($self->{'input'}) eq 'REGEXP' |
35 | 1 | 10 | unless $exists |
38 | 2 | 8 | unless my $got_type = rtype($got) |
40 | 1 | 7 | unless $got_type eq 'REGEXP' |