X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FView%2FDump.pm;h=43cc976a1a10280dff16a104538f7d17e5dd3c82;hb=0eb98ebd1624e8181a4bd88c26605f2a0f1c91d7;hp=6c4c1ec77b9f4c46a655eacc4d1ed17855ff1e23;hpb=9310b818c83f77236e011b34da5506a8dbe0d119;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm index 6c4c1ec..43cc976 100644 --- a/t/lib/TestApp/View/Dump.pm +++ b/t/lib/TestApp/View/Dump.pm @@ -11,16 +11,17 @@ sub dump { 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; } @@ -38,6 +39,10 @@ sub process { # Remove context from reference if needed my $context = delete $reference->{_context}; + if (my $log = $reference->{_log}) { + $log->clear_psgienv if $log->can('psgienv'); + } + if ( my $output = $self->dump( $reference, $purity ) ) {