Guest User

Untitled

a guest
Apr 26th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. package HTTP::RequestHandler::GET;
  2. use base qw/HTTP::RequestHandler/;
  3. use strict;
  4. use warnings;
  5.  
  6. sub handle_request {
  7. my ($self, $request) = @_;
  8. return if $request->method ne 'GET';
  9. warn 'Requested method is GET: ' . $request->uri;
  10. }
  11.  
  12. 1;
Add Comment
Please, Sign In to add comment