The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Chj::TerseDumper

SYNOPSIS

    use Chj::TerseDumper;
    my $foo= +{ foo=> 1, bar=> 10, baz=>-1 };
    is terseDumper($foo), "XXX";
    is TerseDumper($foo), "XXX";

DESCRIPTION

Runs Data::Dumper's Dumper with $Data::Dumper::Terse set to 1.