Select Code to Download

$mytest = new Test();
$mytest->name('BABA');
$mytest->condition('TYPE1')->value('whatever');
$mytest->special->do_something;
$mytest->special->condition('TYPE2')->value('other');

package Test;
@ISA = ("Condition");
...
    $self->{_list} = {@list} if defined(@list);
    return @$self->{_list};
};

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