package SOAPHello;
use strict;
use Hello;

my $hi;

sub new 
{
	my $class = shift;
	my $self  = { };
	
	$hi = Hello->new($self);

	bless $self, $class;
}

sub hello 
{
	return $hi->hello;
}

1;