our $AUTOLOAD;
sub AUTOLOAD {
    my $self = shift;
    my $simple = $self->{simple};
    my $method = (split /::/, $AUTOLOAD)[-1];
    if ($simple->can($method)) {
        $simple->$method(@_);
    } else {
        die "Cannot run $method\n";
    }
}