Select Code to Download

# a handler that gets executed first
my %my_data = (foo => 'mod_perl', bar => 'rules');
$r->pnotes('my_data' => \%my_data);

my $info = $r->pnotes('my_data');
print $info->{foo};

mod_perl