File Coverage

blib/lib/Nephia.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 2 2 100.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package Nephia;
2 2     2   239176 use 5.008005;
  2         7  
  2         79  
3 2     2   12 use strict;
  2         3  
  2         67  
4 2     2   10 use warnings;
  2         10  
  2         72  
5 2     2   968 use Nephia::Incognito;
  2         5  
  2         302  
6              
7             our $VERSION = "0.87";
8              
9             sub import {
10 2     2   22 my ($class, %opts) = @_;
11 2         7 my $caller = caller;
12 2         10 Nephia::Incognito->incognito(%opts, caller => $caller);
13             }
14              
15             sub call {
16 1     1 1 14 my ($class, $codepath) = @_;
17 1         4 my $caller = caller;
18 1         10 Nephia::Incognito->unmask($caller)->call($codepath);
19             }
20              
21             sub run {
22 0     0 1   my $caller = caller;
23 0           Nephia::Incognito->unmask($caller)->run(@_);
24             }
25              
26             1;
27             __END__