Help for this page

Select Code to Download

Select or download this

for (int i = 0; i < 10; i++)
{
...
perl_call_pv("PerlCode::addKeyValue", G_EVAL|G_SCALAR);
...
}

Select or download this

sub addKeyValue
{
   ($key, $value} = @_;
   push @{${$self->{$hash}}{$key}}, $value;
}