File Coverage

blib/lib/Fun.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Fun;
2             BEGIN {
3 5     5   154819 $Fun::AUTHORITY = 'cpan:DOY';
4             }
5             {
6             $Fun::VERSION = '0.05';
7             }
8 5     5   45 use strict;
  5         11  
  5         190  
9 5     5   28 use warnings;
  5         8  
  5         161  
10             # ABSTRACT: simple function signatures
11              
12 5     5   8683 use Devel::CallParser;
  5         49597  
  5         349  
13 5     5   52 use XSLoader;
  5         12  
  5         342  
14              
15             XSLoader::load(
16             __PACKAGE__,
17             exists $Fun::{VERSION} ? ${ $Fun::{VERSION} } : (),
18             );
19              
20 5     5   27 use Exporter 'import';
  5         9  
  5         628  
21             our @EXPORT = our @EXPORT_OK = ('fun');
22              
23              
24              
25             sub fun {
26 0     0 1   my ($code) = @_;
27 0           return $code;
28             }
29              
30              
31             1;
32              
33             __END__