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   51 use strict;
  10         18  
  10         313  
4 10     10   51 use warnings qw(FATAL all NONFATAL misc);
  10         18  
  10         1300  
5              
6             sub import {
7 19     19   101 __PACKAGE__->add_inc(caller);
8             }
9              
10             sub add_inc {
11 79     79 0 151 my ($pack, $callpack) = @_;
12 79         319 $callpack =~ s{::}{/}g;
13 79         827 $INC{$callpack . '.pm'} = 1;
14             }
15              
16             1;