File Coverage

lib/Class/MethodMaker.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 22 25 88.0


line stmt bran cond sub pod time code
1             # (X)Emacs mode: -*- cperl -*-
2              
3             package Class::MethodMaker;
4              
5 8     8   491050 use strict;
  8         20  
  8         386  
6 8     8   57 use warnings;
  8         23  
  8         348  
7              
8 8     8   2609 use Class::MethodMaker::Constants qw( );
  8         14  
  8         171  
9 8     8   2699 use Class::MethodMaker::Engine qw();
  8         20  
  8         379  
10              
11             # Make this line self-contained so MakeMaker can eval() it.
12             our $VERSION = '2.23';
13             our $PACKAGE = 'Class-MethodMaker';
14             our $AUTOLOAD;
15              
16 8     8   39 use XSLoader qw();
  8         12  
  8         1011  
17             XSLoader::load 'Class::MethodMaker', $VERSION;
18              
19             sub AUTOLOAD {
20 0     0   0 (my $x = $AUTOLOAD) =~ s/^Class::MethodMaker/Class::MethodMaker::Engine/;
21 0         0 goto &$x(@_);
22             }
23              
24 40     40   76479 sub import { Class::MethodMaker::Engine->import(@_[1..$#_]) }
25              
26             sub INTEGER() { Class::MethodMaker::Constants::INTEGER() }
27              
28             1; # keep require happy
29              
30             __END__