replay using recorder

rafl · Dec 7, 2008 · 1f6ab97 · 1f6ab97
1 parent 933c736
commit 1f6ab97
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 8 deletions.
diff --git a/lib/MooseX/Antlers/Recorder.pm b/lib/MooseX/Antlers/Recorder.pm
@@ -110,7 +110,7 @@ sub emit_call_results {
       my $code = q!sub {
   my $VAR1 = \@_;
 !.join(";\n", @$_).q!
-};!;
+}!;
     } else {
       'undef';
     }

diff --git a/t/refwalk.t b/t/refwalk.t
@@ -144,21 +144,32 @@ setup_stuff(10, 11, 12);
 
 is_deeply(do_stuff(), [ 10, 11, 12 ], "captures ok");
 
-my @log;
+use MooseX::Antlers::Recorder;
 
-wrap_subs(\@log, map { "main::build_$_" } qw(1 2 3));
+my $rec = MooseX::Antlers::Recorder->new;
+
+$rec->instrument_routines(map { "main::build_$_" } qw(1 2 3));
 
 setup_stuff(13, 14, 15);
 
 is_deeply(do_stuff(13, 14, 15), [ 13, 14, 15 ], "logged ok");
 
-use Data::Dumper;
+#use Data::Dumper;
+
+#warn Dumper($rec);
+
+my $results = $rec->emit_call_results(get_built);
+
+#warn $results;
+
+my ($save, $final) = eval $results;
 
-my ($save, $final) = process_log(\@log, get_built);
+die $@ if $@;
 
-local $Data::Dumper::Deparse = 1;
-warn Dumper($save);
-warn Dumper($final);
+#use Data::Dumper;
+#$Data::Dumper::Deparse = 1;
+#warn Dumper($save);
+#warn Dumper($final);
 
 {
   my $save_user = sub {