File Coverage

blib/lib/SQL/Translator/Producer/PlantUML.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 30 31 96.7


line stmt bran cond sub pod time code
1             package SQL::Translator::Producer::PlantUML;
2 2     2   1514 use 5.008001;
  2         7  
  2         82  
3 2     2   10 use strict;
  2         3  
  2         60  
4 2     2   10 use warnings;
  2         10  
  2         103  
5              
6             our $VERSION = "0.02";
7              
8 2     2   10 use base qw/SQL::Translator::Producer::TT::Base/;
  2         2  
  2         1362  
9              
10 1     1 0 764774 sub produce { return __PACKAGE__->new( translator => shift )->run; };
11              
12 1     1 1 40 sub tt_config { INTERPOLATE => 1 }
13              
14             sub tt_schema {
15 1     1 1 142 my $data = "";
16 1         8 while () {
17 17 100       26 last if (/__END__/);
18 16         31 $data .= $_;
19             }
20 1         3 \$data;
21             }
22              
23             1;
24              
25             __DATA__