File Coverage

blib/lib/ETL/Yertl.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 17 94.1


line stmt bran cond sub pod time code
1             package ETL::Yertl;
2             our $VERSION = '0.037';
3             # ABSTRACT: ETL with a Shell
4              
5 29     29   6829 use strict;
  29         190  
  29         771  
6 29     29   145 use warnings;
  29         50  
  29         796  
7 29     29   127 use base 'Import::Base';
  29         63  
  29         8883  
8              
9             our @IMPORT_MODULES = (
10             strict => [],
11             warnings => [],
12             feature => [qw( :5.10 )],
13             'Path::Tiny' => [qw( path )],
14             );
15              
16             our %IMPORT_BUNDLES = (
17             Test => [
18             qw( Test::More Test::Deep Test::Exception Test::Differences ),
19             FindBin => [ '$Bin' ],
20             boolean => [':all'],
21             'Path::Tiny' => [qw( path cwd tempfile tempdir )],
22             'Dir::Self' => [qw( __DIR__ )],
23             ],
24             );
25              
26             $ETL::Yertl::VERBOSE = $ENV{YERTL_VERBOSE} || 0;
27             sub yertl::diag {
28 172     172   324 my ( $level, $text ) = @_;
29 172 50       434 print STDERR "$text\n" if $ETL::Yertl::VERBOSE >= $level;
30             }
31              
32             1;
33              
34             __END__