view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

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

0.1253 2015-09-28
   - support for jobs
0.1252 2015-07-14
   - add charset 'UTF-8' to default header Accept
0.1251 2015-04-30
   - Activiti::Rest::Response: odd number of values in anonymous hash, due to the method content_type returning multiple values
0.125  2015-04-27
   - change in activiti-rest 5.17: error response use 'exception' instead of 'errorMessage'
   - send signal to execution
0.124	 2014-12-05
	 - add support for retrieval of historic variable instances
0.123    2014-11-13
	 - add support for retrieval of one task variable
0.122	 2014-10-16

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

  unless($res->is_success){

    my $code = $res->code;

    #before version 5.17
    #   { "errorMessage": "<errorMessage>", "statusCode": "statusCode" }
    #from version 5.17
    #   { "message": "<http message>", "exception": "<former errorMessage>" }
    my $content_hash = JSON::decode_json($res->content);
    my $exception = $content_hash->{exception} || $content_hash->{errorMessage};
    #can return multiple values (e.g. 'application/json','charset=utf-8')
    my $ct = $res->content_type;
    my $args = {
        status_code => $res->code,
        message => $res->message,
        content => $res->content,
        content_type => $ct,
        error_message => $exception,
        exception => $exception
    };

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

);
has timeout => (
  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);