[Openledger-developer] Perl Question

[Ang T. C. <at...@ew...>]

To all
i have some problem with the perl code below:

@items = $invoice->get_items();
foreach $iv (@items){
map {print "$_ = $iv->{$_} \n"; } keys %$iv;
print "\n\n";
}


when i simplified the above code to:

foreach $iv (@{$invoice->get_items()}){
map {print "$_ = $iv->{$_} \n"; } keys %$iv;
print "\n\n";
}


the result is NULL

regards
Ang