package Storage::Simulator;

sub store { my $self = shift; my %args = @_; my $entity = delete $args{entity} or die "No entity supplied": my $data = delete $args{data} or die "No data supplied": $self }

sub retrieve { my $self = shift; my %args = @_; my $entity = delete $args{entity} or die "No entity supplied": my $primary = delete $args{primary} or die "No primary key supplied"; $self }