package Devel::Movie;
package DB;
use Internals::DumpArenas ();
our $Frame;
sub tracer {
$Frame //= 0;
local $, = ' ';
++$Frame;
print STDOUT 'Runops::Movie frame',$Frame, @_;
print STDERR 'Runops::Movie frame',$Frame, @_
or warn "Can't write to STDERR: $!";
Internals::DumpArenas::DumpArenas();
}
sub DB { tracer }
sub sub {
tracer( $sub );
goto &$sub;
}
q(Go drinking with mst);