);
}
-sub _calc_new_var_wrapper
+sub _calc_generic_wrapper
{
my $args = shift;
local $ENV{PERLDB_OPTS} = "ReadLine=0" . $extra_opts;
return DebugWrap->new(
{
+ cmds => delete($args->{cmds}),
+ prog => delete($args->{prog}),
+ %$args,
+ }
+ );
+}
+
+sub _calc_new_var_wrapper
+{
+ my ($args) = @_;
+ return _calc_generic_wrapper(
+ {
cmds =>
[
'b 23',
'x "new_var = <$new_var>\\n"',
'q',
],
- prog => delete($args->{prog}),
%$args,
}
);
sub _calc_trace_wrapper
{
- my $args = shift;
+ my ($args) = @_;
- my $extra_opts = delete($args->{extra_opts});
- $extra_opts ||= '';
- local $ENV{PERLDB_OPTS} = "ReadLine=0" . $extra_opts;
- return DebugWrap->new(
+ return _calc_generic_wrapper(
{
cmds =>
[
'c',
'q',
],
- prog => delete($args->{prog}),
%$args,
}
);