blob: 3992a753a0f200b7f9c745a067ad6747adc75cc0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
package presque::worker::Middleware::ClientID;
use Moose;
extends 'Net::HTTP::Spore::Middleware';
has worker_id => ( is => 'rw', isa => 'Str', predicate => 'has_worker_id' );
sub call {
my ( $self, $req ) = @_;
if ( $self->has_worker_id ) {
$req->header( 'X-presque-workerid' => $self->worker_id );
}
}
1;
|