sub dumper {
    die 'Dumper not defined in the abstract class!'
}

##</code><code>##

use Data::Dumper;
sub dumper {
    my ($self, @data) = @_;
    print Data::Dumper::Dumper(@data);
}