1 files changed, 11 insertions, 3 deletions
diff --git a/lib/App/Beam/Backend.pm b/lib/App/Beam/Backend.pm
index c0b8ee3..41036e6 100644
--- a/lib/App/Beam/Backend.pm
+++ b/lib/App/Beam/Backend.pm
@@ -5,6 +5,7 @@ use Carp;
 
 require Exporter;
 our @ISA = qw(Exporter);
+use App::Beam;
 use App::Beam::Command qw(:channels);
 
 sub new {
@@ -48,9 +49,9 @@ sub isset {
     return $self->{beam}->isset(@_);
 }
 
-sub status {
-    my $self = shift;
-    return $self->{beam}->status(@_);
+sub record {
+    my ($self,$idx) = @_;
+    return $self->{beam}{history}->top($idx);
 }
 
 sub logcommand {
@@ -92,4 +93,11 @@ sub backup {
 				      return => '-locus'}));
 }
 
+sub restore {
+    my ($self, $index, $item) = @_;
+    $self->error("restore method not implemented",
+		 locus => $self->get({variable => [ 'item', $item ],
+				      return => '-locus'}));
+}
+
 1;