File Coverage

blib/lib/Mojo/File/Share.pm

Criterion	Covered	Total	%
statement	18	40	45.0
branch	0	10	0.0
condition	0	14	0.0
subroutine	6	11	54.5
pod	2	2	100.0
total	26	77	33.7

package Mojo::File::Share;
use Mojo::Base -strict;
use Carp ();
use Exporter 'import';
use File::ShareDir ();
use File::Spec ();
use Mojo::File 'path';

our $VERSION = '0.01';

our @EXPORT_OK = qw(dist_dir dist_file);

sub dist_dir {
    my $dist = shift // _get_caller_dist();
    my $inc  = _get_inc_from_dist($dist);
    my $path = _get_path_from_inc($inc);

    if ($path and
        -d $path->dirname->sibling('lib') and
        -d -r $path->dirname->sibling('share')) {
        return $path->dirname->sibling('share')->realpath;
    } elsif (-e path('lib', $inc) and -d -r path('share')) {
        return path('share')->realpath;
    } else {
        return path(File::ShareDir::dist_dir($dist))->realpath;
    }
}

sub dist_file {
    my $dist_file = dist_dir(@_ > 1 ? shift : _get_caller_dist())->child(@_)->realpath;

    -f $dist_file or Carp::croak "File '$dist_file': No such file";
    -r $dist_file or Carp::croak "File '$dist_file': No read permission";

    return $dist_file;
}

sub _get_caller_dist {
    my ($package) = caller(1);
    $package =~ s/::/-/g;
    return $package;
}

sub _get_inc_from_dist {
    my ($dist) = @_;

    my $file_separator = File::Spec->catfile('', '');
    (my $inc = $dist) =~ s!(-|::)!$file_separator!g;

    return "$inc.pm";
}

sub _get_path_from_inc {
    my ($inc) = @_;

    my $path = $INC{$inc} // '';
    $path =~ s/$inc$//;

    return path($path);
}

1;
__END__