Repository List / State / trunk / test.pl @ HEAD

#!/usr/bin/perl

use strict;
use warnings;
use lib qw/lib/;
use State;
use Carp;

#require "foo";

state "foo" {
   print "foo\n";
   enter "bar";
   print "foo2\n";
   # foo
   print "foo3\n";
   state "lalal" {
      enter "fofof" if 1;
      print "lalal\n";
   }
   state "fofof" {
      print "fofof\n";
      leave if 1;
   }
   start "lalal";
}
state "bar" {
   print "bar\n";
#   leave;
   prev;
}
start "foo";