NAME
Graph::PetriNet::PlaceAble - Trait for Petri net data nodes
SYNOPSIS
# create your own data nodes with this trait
{
package My::Place::TimeDepend;
use Class::Trait qw(Graph::PetriNet::PlaceAble);
sub new {
my $class = shift;
return bless { ..., ... }, $class;
}
sub .... {
...
}
}DESCRIPTION
Petri net data nodes are supposed to carry the information within the Petri net. What information this is, the Petri net does not care.
The default behavior implemented here is the classical interpretation of every node having tokens. Accordingly there is a method to set/read the number of tokens and one method to increment/decrement that.
If your transitions do something completely different, then you will implement your own data nodes without importing any of the functionality here.
TRAIT
Methods
- tokens
-
Getter/setter method for the number of tokens in this node.
- incr_tokens
-
This method expects one integer parameter (positive or negative). Its value is added to the number of tokens. The result will be corrected to zero.
SEE ALSO
AUTHOR
Robert Barta, <drrho@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2009 by Robert Barta
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.