$trackedObject->Ident = $ident;

##</code><code>##

...
method Ident: lvalue {
    LVALUE{ my $ident };
    reject( $ident ), return 
        unless $ident =~ $RE_IDENT{$LOCATION}{$DATETIME};
    
    $self->FreindOrFoe = ValidateIdent( 
        $ident, 
        $self->currentHeading,
        $LOCATION, $DATETIME 
    );
}
...