| blib/lib/Data/Hive/PathPacker/Flexible.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 12 | 50.0 |
| line | l | !l | condition |
|---|---|---|---|
| 48 | 1 | 0 | $arg ||= {} |
| 67 | 1 | 0 | $arg->{'separator'} || '.' |
| 0 | 1 | $arg->{'escape'} || sub { my($self, $str) = @_; $str =~ s/([^a-z0-9_])/sprintf '%%%x', ord $1;/egi; return $str; } | |
| 0 | 1 | $arg->{'unescape'} || sub { my($self, $str) = @_; $str =~ s/%([0-9a-f]{2})/chr hex $1;/eg; return $str; } | |
| 0 | 1 | $arg->{'join'} || sub { join $_[0]{'separator'}, @{$_[1];}; } | |
| 0 | 1 | $arg->{'split'} || sub { split(/\Q$_[0]{'separator'}\E/, $_[1], 0); } |