File Coverage

blib/lib/Config/From/Backend.pm
Criterion Covered Total %
statement 6 9 66.6
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod n/a
total 8 14 57.1


line stmt bran cond sub pod time code
1             package Config::From::Backend;
2             $Config::From::Backend::VERSION = '0.05';
3              
4 2     2   1256 use utf8;
  2         4  
  2         13  
5 2     2   56 use Moose;
  2         3  
  2         11  
6              
7             has 'debug' => (
8             is => 'rw',
9             );
10              
11             has 'name' => (
12             is => 'rw',
13             isa => 'Str',
14             );
15              
16              
17             sub _log{
18 0     0     my ($self, $msg ) = @_;
19              
20 0 0         return if ! $self->debug;
21              
22 0           say STDERR "[debug] $msg";
23             }
24              
25              
26             1;