File Coverage

blib/lib/DB/Pluggable/Plugin/DataPrinter.pm
Criterion Covered Total %
statement 18 19 94.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package DB::Pluggable::Plugin::DataPrinter;
2 1     1   638 use strict;
  1         3  
  1         32  
3 1     1   5 use warnings;
  1         2  
  1         22  
4 1     1   17 use 5.010;
  1         4  
  1         36  
5 1     1   5 use Role::Basic;
  1         2  
  1         5  
6 1     1   1248 use Data::Printer; # to make it a requirement
  1         47833  
  1         11  
7             with qw(DB::Pluggable::Role::Initializer);
8             our $VERSION = '1.112001';
9              
10             sub initialize {
11 1     1   239 no warnings 'once';
  1         3  
  1         89  
12 0     0 1   $DB::alias{p} = 's/^/use Data::Printer; /; eval $cmd';
13             }
14             1;
15              
16             =pod
17              
18             =for test_synopsis 1;
19             __END__