return unless $reference;
- $purity = $purity // 1;
+ $purity = defined $purity ? $purity : 1;
my $dumper = Data::Dumper->new( [$reference] );
$dumper->Indent(1);
$dumper->Purity($purity);
$dumper->Useqq(0);
$dumper->Deepcopy(1);
- $dumper->Quotekeys(0);
+ $dumper->Quotekeys(1);
$dumper->Terse(1);
+ local $SIG{ __WARN__ } = sub { warn unless $_[ 0 ] =~ m{dummy} };
return $dumper->Dump;
}
# Remove context from reference if needed
my $context = delete $reference->{_context};
+ my $env = delete $reference->{env};
+
+ if (my $log = $reference->{_log}) {
+ $log->clear_psgi if ($log->can('psgienv'));
+ }
+
if ( my $output =
$self->dump( $reference, $purity ) )
{
$reference->{_body} = $body;
}
+ if($env) { $reference->{env} = $env }
+
return 1;
}