Select Code to Download

$pg->add_fact( owns => ('Ovid', 'Cheap Whiskey'));

[0]{2}[1]{3} = {}
[1]{3} = {}

# object ids are hashes and argument positions are arrays
$self->{_arg_levels}{2}[0]{2}[1]{3};

    $_ = $self->_get_vertex( $_ ) foreach @args;

...
        $a = $z;
    }
    return 1;

$pg->add_fact( gnarfle => qw/ foo bar baz / );
$pg->add_fact( gnarfle => qw/ foo tac toe / );
...
my $results = gnarfle( qw/ $one _ $two / );
# or
my $results = gnarfle( qw/ $one tac $two / );

foo baz
foo toe
tic toe

foo toe
tic toe