File Coverage

blib/lib/Package/Debug.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1 5     5   420324 use strict;
  5         12  
  5         213  
2 5     5   31 use warnings;
  5         11  
  5         270  
3              
4             package Package::Debug;
5             BEGIN {
6 5     5   789 $Package::Debug::AUTHORITY = 'cpan:KENTNL';
7             }
8             {
9             $Package::Debug::VERSION = '0.2.2';
10             }
11              
12             # ABSTRACT: Add ENV/Config controlled debug tokens to your code
13              
14              
15             sub import {
16 5     5   43 my ( $self, %args ) = @_;
17 5         3199 require Package::Debug::Object;
18 5         55 my $object = Package::Debug::Object->new(%args);
19 5         23 $object->auto_set_into(1);
20 5         41 $object->inject_debug_value();
21 5         39 $object->inject_debug_sub();
22 5         8453 return $object;
23             }
24              
25             1;
26              
27             __END__