Select Code to Download

sub pp {
    die "bad number of args to pp" unless @_==1;
    return Data::Dumper->new([shift])->Terse(1)->Purity(1)->Useqq(1)
        ->Quotekeys(0)->Sortkeys(1)->Indent(0)->Pair('=>')->Dump;
}

BEGIN {
    if ( eval { require Data::Dump; 1 } )
...
            ->Useqq(1)->Quotekeys(0)->Sortkeys(1)->Dump };
    }
}