Select Code to Download

sub ::D { require Data::Dumper; $Data::Dumper::Indent += 0; local $Dat
+a::Dumper::Indent = 1; Data::Dumper::Dumper(@_) }
sub ::DD { require Carp; Carp::confess(::D(@_)) }

...
print ::D({ state => $some_obj });
[...]
::DD($obj) if $bugs_exist;