File Coverage

lib/Parse/Dia/SQL/Output/Informix.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Parse::Dia::SQL::Output::Informix;
2              
3             # $Id: Informix.pm,v 1.2 2009/03/02 13:41:39 aff Exp $
4              
5             =pod
6              
7             =head1 NAME
8              
9             Parse::Dia::SQL::Output::Informix - Create SQL for Informix.
10              
11             =head1 SEE ALSO
12              
13             Parse::Dia::SQL::Output
14              
15             =cut
16              
17 1     1   968 use warnings;
  1         1  
  1         24  
18 1     1   3 use strict;
  1         1  
  1         14  
19              
20 1     1   4 use Data::Dumper;
  1         1  
  1         50  
21 1     1   3 use File::Spec::Functions qw(catfile);
  1         1  
  1         31  
22              
23 1     1   4 use lib q{lib};
  1         1  
  1         3  
24 1     1   64 use base q{Parse::Dia::SQL::Output}; # extends
  1         1  
  1         52  
25              
26             require Parse::Dia::SQL::Logger;
27             require Parse::Dia::SQL::Const;
28              
29             =head2 new
30              
31             The constructor. Arguments:
32              
33             =cut
34              
35             sub new {
36             my ( $class, %param ) = @_;
37             my $self = {};
38              
39             # Set defaults for informix
40             $param{db} = q{informix};
41             $param{object_name_max_length} = $param{object_name_max_length} || 30;
42              
43             $self = $class->SUPER::new(%param);
44             bless( $self, $class );
45              
46             return $self;
47             }
48              
49             1;
50              
51             __END__