File Coverage

lib/Config/HAProxy.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 3 66.6
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Config::HAProxy;
2 4     4   569259 use strict;
  4         9  
  4         160  
3 4     4   20 use warnings;
  4         7  
  4         307  
4 4     4   25 use parent 'Config::Proxy';
  4         9  
  4         25  
5              
6             my $impl = 'haproxy';
7              
8             sub new {
9 5     5 0 1116284 my $class = shift;
10 5         59 return $class->SUPER::new($impl, @_);
11             }
12              
13             sub declare_section {
14 1     1 1 2 my $class = shift;
15 1         39 $class->SUPER::load($impl, 'declare_section', @_);
16             }
17              
18             sub undeclare_section {
19 0     0 1   my $class = shift;
20 0           $class->SUPER::load($impl, 'undeclare_section', @_);
21             }
22              
23             1;
24             __END__