Select Code to Download

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

package Borg;

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

Borg::comment( $obj );