package DB;

sub get_calling_object
{
    my @foo = caller(2);
    return $DB::args[0]
}