Help for this page
$pg->owns( qw/ $Who gold / );
my $a = shift @important; while( my $z = shift @important ) { ... $a = $z; } return 1;
sub _check_path { my ( $self, $predicate, $lvl1, $lvl2, $arg1, $arg2 ) = @_; ... exists $self->{_arg_levels}{$predicate}[$lvl1]{$arg1}[$lvl +2]{$arg2}; return; # nope, didn't find it }
$pg->add_fact( owns => qw/ Ovid socks / ); $pg->add_fact( gives => qw/ grep grief Ovid / );
www.com | www.net | www.org
No recent polls found