use Data::Dumper; my $u= $r->notes('tester'); die "must be admin to view this page" unless $r->notes('q')->{pp}; #### perl -MDevel::Cover asc.pl