sub UNIVERSAL::dump {

# Obtain the object / class
# Make sure that we have Data::Dumper
# Return Dumper output if not in void context
# Send Dumper output to STDERR otherwise

    my $self = shift;
    require Data::Dumper;
    return Data::Dumper::Dumper( @_ ? @_ : $self ) if defined wantarray;
    print STDERR Data::Dumper::Dumper( @_ ? @_ : $self );
} #UNIVERSAL::dump