view release on metacpan or  search on metacpan

lib/Apache/XPointer.pm  view on Meta::CPAN

    }
    
    my $request = Apache::Request->new($apache);
    return $request->param($field);
}

sub _nometh {
    my $pkg    = shift;
    my $apache = shift;

    my $caller = (caller(1))[3];
    $caller =~ s/.*:://;

    $apache->log()->error(sprintf("package %s does not define a '%s' method",
				  $pkg,$caller));
    return 0;
}

sub _declined {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::DECLINED() : Apache::Constants::DECLINED();