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   45131 use strict;
  2         3  
  2         77  
2 2     2   12 use warnings;
  2         3  
  2         148  
3             package me::inlined; # git description: v0.003-17-gfc99405
4             # vim: set ts=8 sts=4 sw=4 tw=115 et :
5             # ABSTRACT: EXPERIMENTAL - define multiple packages in one file, and reference them in any order
6             # KEYWORDS: development module package file inline declaration
7              
8             our $VERSION = '0.004';
9              
10 2     2   1260 use Module::Runtime ();
  2         3727  
  2         168  
11              
12             sub import
13             {
14 2     2   17 my $self = shift;
15 2         7 my ($caller, $caller_file) = caller;
16 2         7 my $filename = Module::Runtime::module_notional_filename($caller);
17 2         237 $::INC{$filename} = $caller_file;
18             }
19              
20             1;
21              
22             __END__