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   1435 use 5.008001;
  2         6  
  2         76  
3 2     2   8 use strict;
  2         2  
  2         46  
4 2     2   6 use warnings;
  2         7  
  2         82  
5              
6             our $VERSION = "0.03";
7              
8 2     2   7 use base qw/SQL::Translator::Producer::TT::Base/;
  2         2  
  2         987  
9              
10 1     1 0 850931 sub produce { return __PACKAGE__->new( translator => shift )->run; };
11              
12 1     1 1 43 sub tt_config { INTERPOLATE => 1 }
13              
14             sub tt_schema {
15 1     1 1 141 my $data = "";
16 1         9 while () {
17 17 100       28 last if (/__END__/);
18 16         28 $data .= $_;
19             }
20 1         3 \$data;
21             }
22              
23             1;
24              
25             __DATA__