File Coverage

blib/lib/Class/Inspector/Functions.pm
Criterion Covered Total %
statement 26 26 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 34 34 100.0


line stmt bran cond sub pod time code
1             package Class::Inspector::Functions;
2              
3 2     2   68145 use 5.006;
  2         15  
4 2     2   10 use strict;
  2         4  
  2         47  
5 2     2   10 use warnings;
  2         2  
  2         53  
6 2     2   16 use Exporter ();
  2         19  
  2         39  
7 2     2   423 use Class::Inspector ();
  2         4  
  2         259  
8              
9             # ABSTRACT: Get information about a class and its structure
10             our $VERSION = '1.34'; # VERSION
11              
12             BEGIN {
13 2     2   35 our @ISA = 'Exporter';
14              
15              
16 2         9 our @EXPORT = qw(
17             installed
18             loaded
19              
20             filename
21             functions
22             methods
23              
24             subclasses
25             );
26              
27 2         9 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         10 our %EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
38              
39 2         5 foreach my $meth (@EXPORT, @EXPORT_OK) {
40 20         71 my $sub = Class::Inspector->can($meth);
41 2     2   12 no strict 'refs';
  2         4  
  2         137  
42 20     10   72 *{$meth} = sub {&$sub('Class::Inspector', @_)};
  20         122  
  10         4429  
43             }
44              
45             }
46              
47             1;
48              
49             __END__