use My::Configurable::Debugging; my $debug = My::Configurable::Debugging->new(); #### $debug->print_table{ ORDEROBJECT => $order );