package TestHandler;
use strict;
use Apache2::Const -compile=>qw{OK};
sub handler : method {
my ($c,$r)=@_;
$r->content_type('text/plain');
$r->print( $c );
return Apache2::Const::OK;
}
sub pathinfo {
my $r=shift;
$r->content_type('text/plain');
$r->print( $r->path_info );
return Apache2::Const::OK;
}
sub meminfo {
require Linux::Smaps;
my $r=shift;
$r->content_type('text/plain');
my $m=Linux::Smaps->new($$);
my @v=(qw/size rss shared_clean shared_dirty private_clean private_dirty/);
$r->print( "$_: ".$m->$_."\n" ) for @v;
return Apache2::Const::OK;
}
1;