| blib/lib/MOP/Method/Attribute.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 7 | 42.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 0 | 0 | 2 | scalar @_ == 1 and not ref $_[0] |
| line | l | !l | condition |
|---|---|---|---|
| 64 | 0 | 1 | $arg_splitter ||= sub { split(/\s*(?:\,|\=\>)\s*/, $_[0], 0); } |
| 76 | 0 | 1 | $arg_processor ||= sub { my $arg = $_[0]; $arg =~ s/\s*$//; $arg =~ s/^['"]//; $arg =~ s/['"]$//; $arg eq 'undef' ? undef : $arg; } |