File Coverage

blib/lib/File/ShareDir/Tiny.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	13	16	81.2
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	69	72	95.8

package File::ShareDir::Tiny;
$File::ShareDir::Tiny::VERSION = '0.001';
use strict;
use warnings;

use Exporter 5.57 'import';
our @EXPORT_OK = qw/dist_dir module_dir dist_file module_file/;
our %EXPORT_TAGS = (ALL => \@EXPORT_OK);

use Carp 'croak';
use File::Spec::Functions qw/catfile catdir/;

sub _search_inc_path {
	my $path = catdir(@_);

	for my $candidate (@INC) {
		next if ref $candidate;
		my $dir = catdir($candidate, $path);
		return $dir if -d $dir;
	}

	return undef;
}

sub dist_dir {
	my $dist = shift;

	croak 'No dist given' if not length $dist;
	my $dir = _search_inc_path('auto', 'share', 'dist', $dist);

	croak("Failed to find share dir for dist '$dist'") if not defined $dir;
	return $dir;
}

sub module_dir {
	my $module = shift;

	croak 'No module given' if not length $module;
	(my $module_dir = $module) =~ s/::/-/g;
	my $dir = _search_inc_path('auto', 'share', 'module', $module_dir);

	croak("Failed to find share dir for module '$module'") if not defined $dir;
	return $dir;
}

sub dist_file {
	my ($dist, @file) = @_;
	my $dir = dist_dir($dist);
	my $path = catfile($dir, @file);
	-e $path or croak(sprintf 'File \'%s\' does not exist in dist dir of %s', catfile(@file), $dist);
	return $path;
}

sub module_file {
	my ($module, @file) = @_;
	my $dir = module_dir($module);
	my $path = catfile($dir, @file);
	-e $path or croak(sprintf 'File \'%s\' does not exist in module dir of %s', catfile(@file), $module);
	return $path;
}

1;

#ABSTRACT: Locate per-dist and per-module shared files

__END__