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   74183 use 5.006;
  2         18  
4 2     2   13 use strict;
  2         3  
  2         60  
5 2     2   10 use warnings;
  2         4  
  2         72  
6 2     2   17 use Exporter ();
  2         31  
  2         43  
7 2     2   433 use Class::Inspector ();
  2         4  
  2         50  
8 2     2   12 use base qw( Exporter );
  2         4  
  2         559  
9              
10             # ABSTRACT: Get information about a class and its structure
11             our $VERSION = '1.36'; # VERSION
12              
13             BEGIN {
14              
15 2     2   10 our @EXPORT = qw(
16             installed
17             loaded
18              
19             filename
20             functions
21             methods
22              
23             subclasses
24             );
25              
26 2         5 our @EXPORT_OK = qw(
27             resolved_filename
28             loaded_filename
29              
30             function_refs
31             function_exists
32             );
33             #children
34             #recursive_children
35              
36 2         9 our %EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
37              
38 2         6 foreach my $meth (@EXPORT, @EXPORT_OK) {
39 20         88 my $sub = Class::Inspector->can($meth);
40 2     2   16 no strict 'refs';
  2         10  
  2         135  
41 20     10   73 *{$meth} = sub {&$sub('Class::Inspector', @_)};
  20         162  
  10         4555  
42             }
43              
44             }
45              
46             1;
47              
48             __END__