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

# -*- perl -*-
#
# This module was autogenerated by Module::TestConfig

package MyConfig;

use strict;
use Carp;
use vars '$AUTOLOAD';

sub new {
    my $proto = shift;
    my $class = ref $proto || $proto;
    my $self = {
  'four' => '4',
  'testconfig_five' => '5',
  'three' => '3',
  'two' => '2',
  'one' => '1'
}
;
    return bless $self, $class;
}

sub AUTOLOAD {
    my $self = shift;

    ($AUTOLOAD) = $AUTOLOAD =~ /(\w+)$/;

    croak "No such method: $AUTOLOAD"
        unless defined $self->{$AUTOLOAD}
            || $AUTOLOAD eq "DESTROY";

    return $self->{$AUTOLOAD};
}

1;