File Coverage

web/cgi-bin/yatt.lib/YATT/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::Inc;
3 10     10   49 use strict;
  10         20  
  10         299  
4 10     10   48 use warnings qw(FATAL all NONFATAL misc);
  10         16  
  10         1178  
5              
6             sub import {
7 19     19   99 __PACKAGE__->add_inc(caller);
8             }
9              
10             sub add_inc {
11 79     79 0 146 my ($pack, $callpack) = @_;
12 79         316 $callpack =~ s{::}{/}g;
13 79         822 $INC{$callpack . '.pm'} = 1;
14             }
15              
16             1;