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


line stmt bran cond sub pod time code
1 2     2   18396 use 5.006; # our
  2         4  
2 2     2   8 use strict;
  2         3  
  2         39  
3 2     2   6 use warnings;
  2         2  
  2         150  
4              
5             package Path::FindDev;
6              
7             our $VERSION = 'v0.5.3';
8              
9             # ABSTRACT: Find a development path somewhere in an upper hierarchy.
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 2     2   873 use Sub::Exporter -setup => { exports => [ find_dev => \&_build_find_dev, ] };
  2         16853  
  2         21  
14              
15              
16              
17              
18              
19              
20              
21              
22              
23              
24              
25              
26             sub _build_find_dev {
27 3     3   76 my ( undef, undef, $arg ) = @_;
28              
29 3         3 my $finddev_object;
30             return sub {
31 1     1   673 my ($path) = @_;
32 1   33     6 $finddev_object ||= do {
33 1         543 require Path::FindDev::Object;
34 1         8 Path::FindDev::Object->new($arg);
35             };
36 1         11 return $finddev_object->find_dev($path);
37 3         14 };
38             }
39              
40              
41              
42              
43              
44              
45              
46              
47              
48              
49              
50              
51              
52              
53              
54              
55              
56              
57              
58              
59              
60              
61              
62              
63              
64              
65              
66              
67              
68              
69              
70              
71              
72              
73             *find_dev = _build_find_dev( __PACKAGE__, 'find_dev', {} );
74              
75             1;
76              
77             __END__