I'm almost finished witha little module and I forget to implement debugging. In some points I'll just want to dump some datastructure, maybe preceded by a short description.

The fact is that I'm now addicted to Data::Dump cleaner output but it is no in core, while Data::Dumper is everywhere since ever, and I dont want to add a prerequisite (well I can, or I can use what in core but if so no question arise ;)

I'm planning something like:

package MyModule;
use strict;
use warnings;

{
    local $@;
    eval { use Data::Dump; 1;};
        # tried the following to simulate
        # Data::Dump absence but did not work
        # $@ = 1; no Data::Dump;
    use if $@, 'Data::Dumper';
}

_mydump('this is %INC',\%INC);

sub _mydump{
    my ( $msg, $ref) = @_;
    print "$msg:\n";
    {
        local $@;
        eval {dd $ref};
        print Dumper $ref if $@;
    }

}
[download]

But:

• 1) I'm unable to simulate the absence of the Data::Dump module (all strawberrys have it bundled): if I try use Data::DumpNOTEXISTING I got errors about %INC or if I use require in a BEGIN block I receive print() on unopened filehandle Dumper error.
• 2) I got also Dumper used only once warning in other tests
• 3) Is this something sane or just a byzantinisme?

L*