[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