package Continuity::Session;

sub new {
  my $self = {};
  bless $self;
  return $self;
}

sub get {
  my ($self, $var) = @_;
  return $self->{$var};
}

sub set {
  my ($self, $var, $val) = @_;
  $self->{$var} = $val;
}

1;