| Nagios-Plugin-OverHTTP documentation | Contained in the Nagios-Plugin-OverHTTP distribution. |
Nagios::Plugin::OverHTTP::Middleware - Moose role for response middleware
This documentation refers to Nagios::Plugin::OverHTTP::Middleware version 0.14
package My::Custom::Middleware;
use Moose;
with 'Nagios::Plugin::OverHTTP::Middleware'; # use the role (required)
sub rewrite {
my ($self, $response) = @_;
# Do something with $response
my $new_response = $response->clone( ... );
return $new_response;
};
no Moose; # unimport Moose
1;
This module is a Moose role that defines the required API for middleware.
This must return a new instance of Nagios::Plugin::OverHTTP::Response. This will be called as a method with a single argument being a Nagios::Plugin::OverHTTP::Response object. For the most part this object has read only attributes, and thus a new object needs to be returned.
$response = $middleware->rewrite($response);
This module has no methods.
This module is dependent on the following modules:
Douglas Christopher Wilson, <doug at somethingdoug.com>
Please report any bugs or feature requests to
bug-nagios-plugin-overhttp at rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Nagios-Plugin-OverHTTP. I
will be notified, and then you'll automatically be notified of progress on your
bug as I make changes.
Copyright 2010 Douglas Christopher Wilson, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the terms of either:
| Nagios-Plugin-OverHTTP documentation | Contained in the Nagios-Plugin-OverHTTP distribution. |
package Nagios::Plugin::OverHTTP::Middleware; use 5.008001; use strict; use warnings 'all'; ########################################################################### # METADATA our $AUTHORITY = 'cpan:DOUGDUDE'; our $VERSION = '0.14'; ########################################################################### # MOOSE ROLE use Moose::Role 0.74; ########################################################################### # ALL IMPORTS BEFORE THIS WILL BE ERASED use namespace::clean 0.04 -except => [qw(meta)]; ########################################################################### # REQUIRED METHODS requires qw( rewrite ); 1; __END__