File Coverage

blib/lib/Class/Inspector/Functions.pm
Criterion Covered Total %
statement 28 28 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 37 37 100.0


line stmt bran cond sub pod time code
1             package Class::Inspector::Functions;
2              
3 2     2   55120 use 5.006;
  2         14  
4 2     2   9 use strict;
  2         4  
  2         41  
5 2     2   8 use warnings;
  2         3  
  2         67  
6 2     2   14 use Exporter ();
  2         4  
  2         33  
7 2     2   353 use Class::Inspector ();
  2         3  
  2         36  
8 2     2   9 use base qw( Exporter );
  2         2  
  2         399  
9              
10             # ABSTRACT: Get information about a class and its structure
11             our $VERSION = '1.35_01'; # TRIAL VERSION
12             $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
13              
14             BEGIN {
15              
16 2     2   9 our @EXPORT = qw(
17             installed
18             loaded
19              
20             filename
21             functions
22             methods
23              
24             subclasses
25             );
26              
27 2         4 our @EXPORT_OK = qw(
28             resolved_filename
29             loaded_filename
30              
31             function_refs
32             function_exists
33             );
34             #children
35             #recursive_children
36              
37 2         7 our %EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
38              
39 2         5 foreach my $meth (@EXPORT, @EXPORT_OK) {
40 20         59 my $sub = Class::Inspector->can($meth);
41 2     2   17 no strict 'refs';
  2         4  
  2         106  
42 20     10   57 *{$meth} = sub {&$sub('Class::Inspector', @_)};
  20         122  
  10         3360  
43             }
44              
45             }
46              
47             1;
48              
49             __END__