| blib/lib/Parse/RandGen/CharClass.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 24 | 12.5 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 3 | unless my $self = shift() |
| 33 | 0 | 3 | unless ref $elem eq 'Regexp' |
| 34 | 3 | 0 | unless $elem =~ /(\(\?[imsx]*-?[imsx]*\:)+((\[\^?.+\])|\.)/ |
| 41 | 0 | 0 | unless my $self = shift() |
| 46 | 0 | 0 | unless my $self = shift() |
| 57 | 0 | 0 | if (defined $badOne and $i == $badOne) { } |
| 68 | 0 | 0 | if ($Parse::RandGen::CharClass::Debug) |
| 69 | 0 | 0 | defined $badOne ? : |
| 76 | 0 | 0 | unless my $self = shift() |
| 78 | 0 | 0 | unless $elem =~ /(\[\^?.+\])|\./ |
| 85 | 0 | 0 | if ($char =~ /$reCharSet/) { } |
| 94 | 0 | 0 | unless $len == 256 |