| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package ETL::Yertl; |
|
2
|
|
|
|
|
|
|
our $VERSION = '0.036'; |
|
3
|
|
|
|
|
|
|
# ABSTRACT: ETL with a Shell |
|
4
|
|
|
|
|
|
|
|
|
5
|
29
|
|
|
29
|
|
7358
|
use strict; |
|
|
29
|
|
|
|
|
211
|
|
|
|
29
|
|
|
|
|
772
|
|
|
6
|
29
|
|
|
29
|
|
129
|
use warnings; |
|
|
29
|
|
|
|
|
50
|
|
|
|
29
|
|
|
|
|
747
|
|
|
7
|
29
|
|
|
29
|
|
138
|
use base 'Import::Base'; |
|
|
29
|
|
|
|
|
45
|
|
|
|
29
|
|
|
|
|
9453
|
|
|
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
|
168
|
|
|
168
|
|
297
|
my ( $level, $text ) = @_; |
|
29
|
168
|
50
|
|
|
|
455
|
print STDERR "$text\n" if $ETL::Yertl::VERBOSE >= $level; |
|
30
|
|
|
|
|
|
|
} |
|
31
|
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
1; |
|
33
|
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
__END__ |