sub transitions
{
    my $self = shift;
    if (@_)
    {
        $self->{TRANSITIONS} = shift;
   ....