Sorry the late reply. :)

ddump() is just my own silly little Data::Dumper wrapper. While I like and use Ovid's module Data::Dumper::Names frequently, it can't work everywhere.

# {{{ ddump
#
sub ddump
{

    my $label       = shift;
    my $line_number = shift;

    my $ddv = $Data::Dumper::Varname;

    $Data::Dumper::Varname = "${label}_line_${line_number}_";

    print STDERR Dumper(@_);

    $Data::Dumper::Varname = $ddv;

}

# }}}
[download]

Definitely nothing special there...