print( $object->Borg::comment(), "\n" );

##</code><code>##

package Borg;

sub comment { 
    return $_[0]->{default_threat};
}

##</code><code>##

Borg::comment( $obj );