File Coverage

blib/lib/StateML/Event.pm

Criterion	Covered	Total	%
statement	7	27	25.9
branch	0	10	0.0
condition			n/a
subroutine	3	9	33.3
pod	1	7	14.2
total	11	53	20.7

package StateML::Event ;

use strict ;
use base qw(StateML::Object ) ;

sub new {
    return shift()->SUPER::new(
        API           => undef,
        PRE_HANDLERS  => [],
        POST_HANDLERS => [],
        HANDLERS      => [],
        @_
    ) ;
}


sub api {
    my $self = shift ;
    $self->{API} = shift if @_ ;
    return $self->{API} ;
}

sub description {
    my $self = shift ;
    $self->{DESCRIPTION} = shift if @_ ;
    return $self->{DESCRIPTION};
}

sub pre_handlers {
    my $self = shift ;
    $self->{PRE_HANDLERS} = @_ if @_ ;
    return @{$self->{PRE_HANDLERS}} ;
}


sub handlers {
    my $self = shift ;
    $self->{HANDLERS} = @_ if @_ ;
    return @{$self->{HANDLERS}} ;
}

sub post_handlers {
    my $self = shift ;
    $self->{POST_HANDLERS} = @_ if @_ ;
    return @{$self->{POST_HANDLERS}} ;
}


sub arcs {
    my $self = shift ;
    return $self->machine->arcs_for_event( $self ) ;
}

1 ;