sub condition
{
    my $self = shift;
    my $condition = shift or die "missing condition";
    $self->{_condition}{$condition} ||= new Condition;
}