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   492399 use strict;
  8         18  
  8         336  
6 8     8   41 use warnings;
  8         14  
  8         305  
7              
8 8     8   2430 use Class::MethodMaker::Constants qw( );
  8         15  
  8         153  
9 8     8   2387 use Class::MethodMaker::Engine qw();
  8         21  
  8         399  
10              
11             # Make this line self-contained so MakeMaker can eval() it.
12             our $VERSION = '2.22_01';
13             our $PACKAGE = 'Class-MethodMaker';
14             our $AUTOLOAD;
15              
16 8     8   53 use XSLoader qw();
  8         10  
  8         970  
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   79054 sub import { Class::MethodMaker::Engine->import(@_[1..$#_]) }
25              
26             sub INTEGER() { Class::MethodMaker::Constants::INTEGER() }
27              
28             1; # keep require happy
29              
30             __END__