QWizard::Storage::Memory - Stores data in CGI variables

  my $st = new QWizard::Storage::Memory();
  $st->set('var', 'value');
  $st->get('var');

package QWizard::Storage::Memory;

use strict;
use QWizard::Storage::Base;

our @ISA = qw(QWizard::Storage::Base);

our $VERSION = '3.15';

sub new {
    my $class = shift;
    bless {}, $class;
}

sub get_all {
    my $self = shift;
    return $self->{'vars'};
}

sub set {
    my ($self, $it, $value) = @_;
    $self->{'vars'}{$it} = $value;
    return $value;
}

# faster than the parent iterative method
sub set_all {
    my $self = shift;
    %{$self->{'vars'}} = %{$_[0]};
}

sub get {
    my ($self, $it, $value) = @_;
    return $self->{'vars'}{$it};
}

sub reset {
    my $self = shift;
    %{$self->{'vars'}} = ();
}

1;