File Coverage

blib/lib/Config/Any/Properties.pm
Criterion Covered Total %
statement 22 22 100.0
branch 3 4 75.0
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 36 37 97.3


line stmt bran cond sub pod time code
1             # COPYRIGHT: © 2012 Peter Hallam
2              
3             package Config::Any::Properties;
4             BEGIN {
5 2     2   91872 $Config::Any::Properties::AUTHORITY = 'cpan:PRAGMATIC';
6             }
7              
8             # ABSTRACT: Config::Any loader for Java-style property files
9             # CREATED: Thu, 4 Oct 2012 05:03:25 UTC
10             # AUTHOR: Peter Hallam
11              
12 2     2   17 use strict;
  2         4  
  2         57  
13 2     2   8 use warnings;
  2         2  
  2         52  
14 2     2   27 use v5.10;
  2         6  
  2         135  
15              
16             our $VERSION = '0.001000'; # VERSION
17              
18 2     2   1367 use parent 'Config::Any::Base';
  2         600  
  2         11  
19              
20             sub extensions {
21 1     1 1 38301 return qw{ properties props };
22             }
23              
24             sub load {
25 3     3 1 18404 my ( $class, $file, $opts ) = @_;
26              
27 3 100       23 $opts = {} unless ref $opts eq 'HASH';
28              
29 3         6 eval {
30 3         29 require Config::Properties;
31             };
32 3 50       20 unless ( $@ ) {
33 3         29 my $decoder = Config::Properties->new(
34             file => $file,
35             %$opts,
36             );
37              
38 2         34909 return $decoder->splitToTree;
39             }
40             }
41              
42             sub requires_any_of {
43 3     3 1 322 return qw{ Config::Properties };
44             }
45              
46             1;
47              
48             __END__