File Coverage

blib/lib/Puncheur/Plugin/ShareDir.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	4	6	66.6
condition	5	9	55.5
subroutine	8	8	100.0
pod	0	1	0.0
total	50	57	87.7

package Puncheur::Plugin::ShareDir;
use 5.010;
use strict;
use warnings;

use File::Spec;
use File::ShareDir ();
use List::Util qw(first);

our @EXPORT = qw/share_dir/;

sub share_dir {
    my $c = shift;
    my $klass = ref $c || $c;

    state $SHARE_DIR_CACHE;
    $SHARE_DIR_CACHE->{$klass} ||= sub {
        my $d1 = File::Spec->catfile($c->base_dir, 'share');
        return $d1 if -d $d1;

        my $dist = first { $_ ne 'Puncheur' && $_->isa('Puncheur') } reverse @{mro::get_linear_isa($klass)};
           $dist =~ s!::!-!g;

        local $@;
        my $d2 = eval { File::ShareDir::dist_dir($dist) };
        return $d2 if $d2 && -d $d2;

        return $d1;
    }->();
}

1;