view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.1259  2020-12-17 09:11:46 CET
   - timer jobs have different execute path in flowable

0.1258  2020-12-09 10:04:22 CET
   - add support for timer-jobs and suspended-jobs from flowable

0.1257  2020-11-07 13:53:23 CET
   - add option keep_alive for client

0.1256  2020-10-21 09:45:20 CEST
   - print debug information to STDERR instead of STDOUT

0.1255  2020-06-03 11:28:58 CEST
   - add support for deadletter jobs from flowable

0.1254  2018-04-25 11:16:46 CEST
   - add option timeout for client

lib/Activiti/Rest/UserAgent.pm  view on Meta::CPAN

  is => 'ro',
  isa => sub { is_integer($_[0]) && $_[0] >= 0 || die("timeout should be natural number"); },
  lazy => 1,
  default => sub { 180; }
);
has default_headers => (
    is => 'ro',
    isa => sub { array_ref($_[0]); },
    default => sub { [["Accept","application/json; charset=UTF-8"]]; }
);
has keep_alive => (
    is => 'ro',
    isa => sub { is_integer($_[0]) && $_[0] >= 0 || die("keep_alive should be natural number"); },
    lazy => 1,
    default => sub { 1; }
);

#usage: request($params,$method)
requires qw(request);

1;

lib/Activiti/Rest/UserAgent/LWP.pm  view on Meta::CPAN

has ua => (
  is => 'ro',
  lazy => 1,
  builder => '_build_ua'
);
sub _build_ua {
  my $self = $_[0];
  my $ua = LWP::UserAgent->new(
    cookie_jar => {},
    timeout => $self->timeout(),
    keep_alive => $self->keep_alive()
  );
  if(is_string($ENV{LWP_TRACE})){
    $ua->add_handler("request_send",  sub { print STDERR shift->as_string; return });
    $ua->add_handler("response_done", sub { print STDERR shift->as_string; return });
  }
  for my $header(@{ $self->default_headers() }){
    $ua->default_header($header->[0] => $header->[1]);
  }
  $ua;
}