package CGI::Armature::Storage;

use strict;
use vars '@ISA';
BEGIN {
    require CGI::Armature::Bridge;
    @ISA = 'CGI::Armature::Bridge';
}

sub fetch {
    my $self = shift;
    my $id = shift;
    my $method = $self->{fetch};
    return $self->{object}->$method($id);
}

sub store {
    my $self = shift;
    my $id = shift;
    my $value = shift;
    my $method = $self->{store};
    $self->{object}->$method($id, $value);
}

sub fetch_ids {
    my $self = shift;
    my $method = $self->{fetch_ids};
    return $self->{object}->$method();
}

sub delete {
    my $self = shift;
    my $id = shift;
    my $method = $self->{delete};
    $self->{object}->$method($id);
}

1;