File Coverage

blib/lib/Path/FindDev.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	26	28	92.8

use 5.006;    # our
use strict;
use warnings;

package Path::FindDev;

our $VERSION = 'v0.5.3';

# ABSTRACT: Find a development path somewhere in an upper hierarchy.

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Sub::Exporter -setup => { exports => [ find_dev => \&_build_find_dev, ] };












sub _build_find_dev {
  my ( undef, undef, $arg ) = @_;

  my $finddev_object;
  return sub {
    my ($path) = @_;
    $finddev_object ||= do {
      require Path::FindDev::Object;
      Path::FindDev::Object->new($arg);
    };
    return $finddev_object->find_dev($path);
  };
}


































*find_dev = _build_find_dev( __PACKAGE__, 'find_dev', {} );

1;

__END__