Help for this page
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;
www.com | www.net | www.org
No recent polls found