Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package HTTP::RequestHandler::GET;
- use base qw/HTTP::RequestHandler/;
- use strict;
- use warnings;
- sub handle_request {
- my ($self, $request) = @_;
- return if $request->method ne 'GET';
- warn 'Requested method is GET: ' . $request->uri;
- }
- 1;
Add Comment
Please, Sign In to add comment