sub AUTOLOAD{
    my($self, @args) = @_;
    my @method_and_structure  = split m|\:\:|, $AUTOLOAD;
    my $method = $method_and_structure[@method_and_structure-1];
    if ($self->{object}->can($method)){
        return $self->{object}->$method(@args);
    }
    die ">$method is not found on " . $self->get_type() . "\n";
}