File Coverage

blib/lib/Wetware/Test/Mock.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	19	20	95.0

#-------------------------------------------------------------------------------
#      $URL$
#     $Date$
#   $Author$
# $Revision$
#-------------------------------------------------------------------------------
package Wetware::Test::Mock;

use warnings;
use strict;

our $VERSION = 0.01;
our $AUTOLOAD;  # it's a package global

#-------------------------------------------------------------------------------
# the Plain Vanilla form
sub new {
	my ($class, %params) = @_;	    # Normalize the keys of the attributes hash to ALL_CAPS.
    my %uppercase_params = map { ( uc $_ => $params{$_} ) } keys %params;
    my $self = bless \%uppercase_params, $class;
    return $self;
}

sub AUTOLOAD {
	my $self = shift;
	my $name = $AUTOLOAD;
	$name =~ s/.*://;   # strip fully-qualified portion
	return $self->{ uc $name };
}
#-------------------------------------------------------------------------------

1;

__END__