File Coverage

blib/lib/Config/Pg/ServiceFile.pm
Criterion Covered Total %
statement 11 11 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Config::Pg::ServiceFile;
2              
3 1     1   76431 use strict;
  1         8  
  1         24  
4 1     1   4 use warnings;
  1         2  
  1         22  
5 1     1   373 use parent 'Config::INI::Reader';
  1         238  
  1         4  
6              
7             # ABSTRACT: PostgreSQL connection service file parser
8              
9             our $VERSION = '0.02';
10              
11             sub can_ignore {
12 15     15 1 3509 my ($self, $line, $handle) = @_;
13              
14             # Skip comments and empty lines
15 15 100       48 return $line =~ /\A\s*(?:#|$)/ ? 1 : 0;
16             }
17              
18             1;
19              
20             __END__