File Coverage

blib/lib/me/inlined.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 17 17 100.0


line stmt bran cond sub pod time code
1 2     2   34600 use strict;
  2         4  
  2         82  
2 2     2   9 use warnings;
  2         3  
  2         100  
3             package me::inlined;
4             # git description: v0.002-3-gdf6f913
5             $me::inlined::VERSION = '0.003';
6             # ABSTRACT: EXPERIMENTAL - define multiple packages in one file, and reference them in any order
7             # KEYWORDS: development module package file inline declaration
8             # vim: set ts=8 sw=4 tw=78 et :
9              
10 2     2   1188 use Module::Runtime ();
  2         3403  
  2         149  
11              
12             sub import
13             {
14 2     2   14 my $self = shift;
15 2         7 my ($caller, $caller_file) = caller;
16 2         7 my $filename = Module::Runtime::module_notional_filename($caller);
17 2         205 $::INC{$filename} = $caller_file;
18             }
19              
20             1;
21              
22             __END__