| blib/lib/Amon2/Plugin/ShareDir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 12 | 41.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 27 | 1 | 0 | 1 | $_ ne 'Amon2' and $_ ne 'Amon2::Web' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 21 | 0 | 3 | 0 | ref $c || $c |
| 27 | 0 | 1 | 0 | ref $c || $c |
| 33 | 0 | 3 | 0 | $SHARE_DIR_CACHE{$klass} ||= sub { my $d1 = 'File::Spec'->catfile($c->base_dir, 'share'); return $d1 if -d $d1; my $dist = first(sub { $_->isa('Amon2') if $_ ne 'Amon2' and $_ ne 'Amon2::Web'; } , reverse(@{mro::get_linear_isa(ref $c || $c);})); $dist =~ s/::/-/g; my $d2 = File::ShareDir::dist_dir($dist); return $d2 if -d $d2; Carp::croak("Cannot find assets path($d1, $d2)."); } ->() |