blib/lib/String/FlexMatch.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 4 | 8 | 50.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
67 | 0 | 0 | 16 | ref $lhs && $lhs->isa('String::FlexMatch') |
69 | 16 | 0 | 0 | ref $rhs && $rhs->isa('String::FlexMatch') |
line | l | !l | condition |
---|---|---|---|
82 | 14 | 2 | our $match ||= {'STRING_STRING', sub { $_[0] eq $_[1]; } , 'STRING_Regexp', sub { $_[0] =~ /$_[1]/; } , 'STRING_CODE', sub { $_[1]->($_[0]); } , 'Regexp_STRING', sub { $_[1] =~ /$_[0]/; } , 'Regexp_Regexp', sub { die q[can't compare two regexes]; } , 'Regexp_CODE', sub { die q[can't compare a regex to a string]; } , 'CODE_STRING', sub { $_[0]->($_[1]); } , 'CODE_Regexp', sub { die q[can't compare a coderef to a regex]; } , 'CODE_CODE', sub { die q[can't compare two coderefs]; } } |