sub AUTOLOAD {
    my $self = shift;
    my $super = $self->{parent};
    ( my $method = $AUTOLOAD ) =~ s[.*::][];
    return $super->$method( @_ );
}