#!/usr/bin/perl
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI->dispatch_to('Object')->handle;

package Object;

sub new {
    my $class = shift;
    $class = ref($class) || $class;   
    return bless { '_cache' => [] }, $class;
}

sub set {
	my ( $self, $arg ) = @_;
	$self->{'_field'} = $arg;
	push @{ $self->{'_cache'} }, $arg;
}

sub get { shift->{'_field'} }

sub all { shift->{'_cache' } }