package Test.pm;

sub new
{
	my ($self, $value) = (@_);
	my @return

	%return = ("code" => 1, "fault" => "You didnt even send a value to me!\n") if (!$value);
	%return = ("code" => 0, "value" => "Cool, you sent me $value\n") if ($value);
	
}

##</code><code>##

use Module::Test;

$test = Module::Test->new();

die($test->{'fault'}) if (!$test);

# Didn't die
print $test->{'value'} if ($test);