sub condition
{
    my ($self,$condition) = @_;
    if (!defined $condition) { die "Need condition name"; }

    if (! defined $self->{_condition}{$condition}) {
      $self->{_condition}{$condition} = Condition->new();
    }

    return $self->{_condition}{$condition};
};