delete $machines{+shift};
####
FSA::Rules=HASH(0x31cc818) [refcount 13] is
+- referenced by REF(0x31d8740) [refcount 1], which is
| the member 'machine' of HASH(0x31cc788) [refcount 1],
##
##
my (%machines, %states);
sub new {
my $class = shift;
my $self = bless {}, $class;
my $fsa = $machines{$self} = {
done => undef,
notes => {},
stack => [],
table => {},
self => $self,
};
$def->{name} = $state;
$def->{machine} = $self;
$fsa->{table}{$state} = $obj;
push @{$fsa->{ord}}, $obj;
$states{$obj} = $def;
##
##
freeing myself
after cleanup
FSA::Rules=HASH(0x214e718) [refcount 1] is
referenced by REF(0x1a30bc8) [refcount 1], which is
the lexical '$fsa' in CODE(0x1a30958) [refcount 3], which is
the global &Siebel::Srvrmgr::ListParser::parse.
finished free method
destroying FSA::State=HASH(0x215a658)
destroying FSA::State=HASH(0x215a550)
destroying FSA::State=HASH(0x215a430)
destroying FSA::State=HASH(0x215a310)
destroying FSA::State=HASH(0x215a1f0)
destroying FSA::State=HASH(0x215a0d0)
destroying FSA::State=HASH(0x2159fb0)
destroying FSA::State=HASH(0x2159e90)
destroying FSA::State=HASH(0x2159d58)
destroying FSA::State=HASH(0x2159c50)
destroying FSA::State=HASH(0x214e910)
FSA::Rules is dead
freeing myself
after cleanup
FSA::Rules=HASH(0x215c148) [refcount 1] is
referenced by REF(0x1a30bc8) [refcount 1], which is
the lexical '$fsa' in CODE(0x1a30958) [refcount 3], which is
the global &Siebel::Srvrmgr::ListParser::parse.
finished free method
destroying FSA::State=HASH(0x214e5e0)
destroying FSA::State=HASH(0x214da28)
destroying FSA::State=HASH(0x1a97978)
destroying FSA::State=HASH(0x215bed8)
destroying FSA::State=HASH(0x2130628)
destroying FSA::State=HASH(0x2137b50)
destroying FSA::State=HASH(0x214e508)
destroying FSA::State=HASH(0x215bcf8)
destroying FSA::State=HASH(0x2137a48)
destroying FSA::State=HASH(0x2141cf8)
destroying FSA::State=HASH(0x2127788)
FSA::Rules is dead
ListParser is gone
End of program
daemon is gone