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

##</code><code>##

...
return $self->{TRANSITIONS};