File Coverage

lib/Parse/Dia/SQL/Output/Sas.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::Sas;
2              
3             # $Id: Sas.pm,v 1.3 2009/03/02 13:41:39 aff Exp $
4              
5             =pod
6              
7             =head1 NAME
8              
9             Parse::Dia::SQL::Output::Sas - Create SQL for Sas.
10              
11             =head1 SEE ALSO
12              
13             Parse::Dia::SQL::Output
14              
15             =cut
16              
17 2     2   2773 use warnings;
  2         4  
  2         56  
18 2     2   8 use strict;
  2         4  
  2         32  
19              
20 2     2   8 use Data::Dumper;
  2         2  
  2         74  
21 2     2   14 use File::Spec::Functions qw(catfile);
  2         4  
  2         92  
22              
23 2     2   8 use lib q{lib};
  2         12  
  2         10  
24 2     2   181 use base q{Parse::Dia::SQL::Output}; # extends
  2         4  
  2         156  
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 sas
40             $param{db} = q{sas};
41             $param{object_name_max_length} = $param{object_name_max_length} || 32;
42              
43             $self = $class->SUPER::new(%param);
44             bless( $self, $class );
45              
46             return $self;
47             }
48              
49              
50             1;
51              
52             __END__