package Job;

use base 'DBObject';

sub new {
    my ($class, %params) = @_;
    ...
    return $class->SUPER::new(...);
}