Basset::Machine Basset::Machine is a Perl module used to state machines.
Download

Basset::Machine Ranking & Summary

Basset::Machine Tags

Perl module machine perl state machines Basset machine Basset

Basset::Machine Description

Basset::Machine is a Perl module used to state machines. Basset::Machine is a Perl module used to state machines.SYNOPSISAn example is best. Let's try a simple one. package My::Machine; use Basset::Object; Basset::Object->inherits(__PACKAGE__, 'machine'); sub start { return shift->state('login'); } sub login { my $self = shift; my $heap = $self->heap; if ($heap->{'loggedin'}) { return $self->state('success'); } else { return $self->state('prompt'); } } sub prompt { my $self = shift; print "Please enter your username (must be 'bob'): "; chomp(my $name = ); $self->{'heap'}->{'loggedin'} = 1 if $name eq 'bob'; return $self->state('login'); } sub success { my $self = shift; print "You are logged inn"; return $self->terminate; } 1; --- #!/usr/bin/perl use My::Machine; My::Machine->execute; Requirements: · Perl

Basset::Machine Related Software