Help for this page

Select Code to Download


  1. or download this
    sub print {
  my $self = shift;
...
  # dereference the hashref and print the content:
  print %{$hashref};
}
  2. or download this
    $r->print( %{
  'response' => {'result' => $results,},
});
  3. or download this
    my %real_hash = ( 'response' => {'result' => $results} );

# Passing the reference of a real hash
$r->print( \%real_hash );