Select Code to Download

    $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 / );