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 25     25   944 use strict;
  25         58  
  25         767  
4 25     25   124 use warnings qw(FATAL all NONFATAL misc);
  25         51  
  25         2476  
5              
6             sub import {
7 263     263   26030 __PACKAGE__->add_inc(caller);
8             }
9              
10             sub add_inc {
11 263     263 0 680 my ($pack, $callpack) = @_;
12 263         1052 $callpack =~ s{::}{/}g;
13 263         13291 $INC{$callpack . '.pm'} = 1;
14             }
15              
16             1;