File Coverage

lib/SQL/Admin/Driver/Pg/Parser.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 2 6 33.3
subroutine 5 5 100.0
pod 0 2 0.0
total 20 26 76.9


line stmt bran cond sub pod time code
1              
2             package SQL::Admin::Driver::Pg::Parser;
3 2     2   1584 use base qw( SQL::Admin::Driver::Base::Parser );
  2         4  
  2         757  
4              
5 2     2   17 use strict;
  2         4  
  2         61  
6 2     2   11 use warnings;
  2         3  
  2         280  
7              
8             our $VERSION = v0.5.0;
9              
10             ######################################################################
11             ######################################################################
12              
13             my $grammar = require SQL::Admin::Driver::Pg::Grammar;
14             my $cached;
15              
16             ######################################################################
17             ######################################################################
18             sub new { # ;
19 1     1 0 913 my $class = shift;
20              
21 1   33     15 $cached ||= $class->SUPER::new (@_);
22 1   33     860534 bless { @_, parser => $cached->{parser} }, ref $class || $class;
23             }
24              
25              
26             ######################################################################
27             ######################################################################
28             sub grammar { # ;
29 1     1 0 5 $grammar;
30             }
31              
32              
33             ######################################################################
34             ######################################################################
35              
36             package SQL::Admin::Driver::Pg::Parser;
37              
38             1;