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   1632965 use strict;
  8         19  
  8         332  
6 8     8   50 use warnings;
  8         18  
  8         435  
7              
8 8     8   2233 use Class::MethodMaker::Constants qw( );
  8         17  
  8         171  
9 8     8   2155 use Class::MethodMaker::Engine qw();
  8         21  
  8         359  
10              
11             # Make this line self-contained so MakeMaker can eval() it.
12             our $VERSION = '2.24';
13             our $PACKAGE = 'Class-MethodMaker';
14             our $AUTOLOAD;
15              
16 8     8   38 use XSLoader qw();
  8         9  
  8         855  
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   90704 sub import { Class::MethodMaker::Engine->import(@_[1..$#_]) }
25              
26             sub INTEGER() { Class::MethodMaker::Constants::INTEGER() }
27              
28             1; # keep require happy
29              
30             __END__