File Coverage

blib/lib/YATT/Lite/Inc.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             # -*- mode: perl; coding: utf-8 -*-
2             package YATT::Lite::Inc;
3 17     17   1339 use strict;
  17         32  
  17         527  
4 17     17   83 use warnings qw(FATAL all NONFATAL misc);
  17         57  
  17         1972  
5              
6             sub import {
7 175     175   20985 __PACKAGE__->add_inc(caller);
8             }
9              
10             sub add_inc {
11 175     175 0 328 my ($pack, $callpack) = @_;
12 175         628 $callpack =~ s{::}{/}g;
13 175         11134 $INC{$callpack . '.pm'} = 1;
14             }
15              
16             1;