File Coverage

blib/lib/Class/StateMachine/Declarative.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	2	6	33.3
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	33	43	76.7

package Class::StateMachine::Declarative;

sub _clean_eval { eval shift }

our $VERSION = '0.03';

use 5.010;

use strict;
use warnings;
use Carp;
BEGIN { our @CARP_NOT = qw(Class::StateMachine Class::StateMachine::Private) }

use Class::StateMachine::Declarative::Builder;

my $dump = exists $ENV{CLASS_STATEMACHINE_DECLARATIVE_DUMPFILE};
my %dump;

END {
    if ($dump) {
        open my $fh, ">", $ENV{CLASS_STATEMACHINE_DECLARATIVE_DUMPFILE} or return;
        require Data::Dumper;
        print $fh Data::Dumper->Dump([\%dump], [qw(*state_machines)]);
        close $fh;
    }
}

sub import {
    shift;
    my $class = scalar(caller);
    $dump{$class} = [ @_ ] if $dump;
    my $builder = Class::StateMachine::Declarative::Builder->new($class);
    $builder->parse_state_declarations(@_);
    $builder->generate_class;
    #use Data::Dumper;
    #print STDERR Dumper($builder);
}

1;
__END__