package Bridge::Simple;

use strict;
use Carp;

sub new {
    my $class = shift;
    my $object_ref = shift;
    my $method_map = shift;
    my $self = {};
    $self->{$_} = $method_map->{$_} for keys %$method_map;
    $self->{object} = $object_ref;
    return bless($self, $class);
}

sub AUTOLOAD {
    my $self = shift;
    use vars '$AUTOLOAD';
    $AUTOLOAD =~ s/.*:://;
    croak "no method $AUTOLOAD" unless exists $self->{$AUTOLOAD};
    my $method = $self->{$AUTOLOAD};
    return $self->{object}->$method(@_);
}

1;