File Coverage

blib/lib/File/Share.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	4	0.0
condition	0	14	0.0
subroutine	6	10	60.0
pod	0	4	0.0
total	24	66	36.3

use strict; use warnings;
package File::Share;
our $VERSION = '0.26';

use base 'Exporter';
our @EXPORT_OK   = qw[
    dist_dir
    dist_file
    module_dir
    module_file
    class_dir
    class_file
];
our %EXPORT_TAGS = (
    all => [ @EXPORT_OK ],
    ALL => [ @EXPORT_OK ],
);

use File::ShareDir();
use Cwd qw(abs_path);
use File::Spec();

sub dist_dir {
    my ($dist) = @_;
    (my $inc = $dist) =~ s!(-|::)!/!g;
    $inc .= '.pm';

    my $path = $INC{$inc} || '';
    $path =~ s/$inc$//;
    $path = Cwd::realpath( File::Spec->catfile($path, '..') );

    if ($path =~ m<^(.*?)[\/\\]blib\b> and
        -d File::Spec->catdir($1, 'share') and
        -d ($_ = File::Spec->catdir($1, 'share'))
    ) {
        return abs_path($_);
    }

    if ($path and
        -d File::Spec->catdir($path, 'lib') and
        -d ($_ = File::Spec->catdir($path, 'share'))
    ) {
        return abs_path($_);
    }

    return File::ShareDir::dist_dir($dist);
}

sub dist_file {
    my ($dist, $file) = @_;
    my $dir = dist_dir($dist);
    return File::Spec->catfile( $dir, $file );
}

sub module_dir {
    die "File::Share::module_dir not yet supported";
}

sub module_file {
    die "File::Share::module_file not yet supported";
}

1;