File Coverage

blib/lib/Test/InDistDir.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 24 26 92.3


line stmt bran cond sub pod time code
1 1     1   2200 use strict;
  1         3  
  1         44  
2 1     1   6 use warnings;
  1         1  
  1         57  
3             package Test::InDistDir;
4              
5             our $VERSION = '1.112071'; # VERSION
6             # ABSTRACT: test environment setup for development with IDE
7              
8              
9 1     1   1245 use lib;
  1         780  
  1         6  
10 1     1   58 use File::Spec;
  1         2  
  1         127  
11              
12             sub import {
13 1     1   2480 my $script = ( File::Spec->splitpath( $0 ) )[-1];
14              
15 1 50       24 chdir ".." if !-f "t/$script";
16 1 50       2 lib->import( 'lib' ) if !grep { /\bblib\b/ } @INC;
  1         10  
17              
18 1         78 return;
19             }
20              
21             1;
22              
23             __END__