File Coverage

MyConfig.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition 3 6 50.0
subroutine 5 5 100.0
pod 0 1 0.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             # -*- perl -*-
2             #
3             # This module was autogenerated by Module::TestConfig
4              
5             package MyConfig;
6              
7 1     1   7 use strict;
  1         2  
  1         46  
8 1     1   5 use Carp;
  1         2  
  1         121  
9 1     1   7 use vars '$AUTOLOAD';
  1         2  
  1         268  
10              
11             sub new {
12 1     1 0 1 my $proto = shift;
13 1   33     9 my $class = ref $proto || $proto;
14 1         12 my $self = {
15             'four' => '4',
16             'two' => '2',
17             'testconfig_five' => '5',
18             'one' => '1',
19             'three' => '3'
20             }
21             ;
22 1         5 return bless $self, $class;
23             }
24              
25             sub AUTOLOAD {
26 6     6   10 my $self = shift;
27              
28 6         31 ($AUTOLOAD) = $AUTOLOAD =~ /(\w+)$/;
29              
30 6 100 66     314 croak "No such method: $AUTOLOAD"
31             unless defined $self->{$AUTOLOAD}
32             || $AUTOLOAD eq "DESTROY";
33              
34 5         23 return $self->{$AUTOLOAD};
35             }
36              
37             1;