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__ |