Activiti-Rest-Client

 view release on metacpan or  search on metacpan

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/Sane.pm  view on Meta::CPAN

package Activiti::Sane;
use strict;
use warnings;
use feature ();
use utf8;

sub import {
  my $pkg = caller;
  strict->import;
  warnings->import;
  feature->import(qw(:5.10));
  utf8->import;
}

1;

test/delete_process_instance.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://rest:rest@andric.ugent.be:8888/activiti-rest/service'
);

my $res = $client->delete_historic_process_instance(processInstanceId => 418);

print Dumper($res->parsed_content);

test/deployments.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $deployments = $client->deployments->parsed_content;
my @ids = map { $_->{id} } @{ $deployments->{data} };
for my $id(@ids){
  print Dumper($client->deployment(deploymentId => $id)->parsed_content);
}

test/form.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $form = $client->form(processDefinitionId => "vacationRequest:1:33")->parsed_content;
print Dumper($form);

test/models.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $models = $client->models->parsed_content;
my @ids = map { $_->{id} } @{ $models->{data} };
for my $id(@ids){
  print Dumper($client->model(modelId => $id)->parsed_content);
}

test/process_definitions.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $res = $client->process_definitions;

die("no parsed content") unless $res->has_parsed_content;

my $pdefs = $res->parsed_content;

test/process_definitions_ids.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $pdefs = $client->process_definitions->parsed_content;
print $_."\n" for map { $_->{id} } @{ $pdefs->{data} };

test/process_definitions_resourcedata.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $pdefs = $client->process_definitions->parsed_content;
my @ids = map { $_->{id} } @{ $pdefs->{data} };
for my $id(@ids){
  print $client->process_definition_resource_data(processDefinitionId => $id)->parsed_content;
}

test/query_process_instances.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://rest:rest@andric.ugent.be:8888/activiti-rest/service'
);

my $res = $client->query_process_instances(
  content => {
    "processDefinitionKey" => "CustomerRequest",
    includeProcessVariables => "true",
    "variables" => [],

test/query_tasks.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://rest:rest@andric.ugent.be:8888/activiti-rest/service'
);

my $res = $client->query_tasks(
  content => {
#    "processDefinitionKey" => "CustomerRequest",
#    includeProcessVariables => "true",  
    candidateGroup => "LWBIB"

test/tasks.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $tasks = $client->tasks->parsed_content;
my @ids = map { $_->{id} } @{ $tasks->{data} };
for my $id(@ids){
  print Dumper($client->task(taskId => $id)->parsed_content);
}

test/users.pl  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Activiti::Rest::Client;
use Data::Dumper;

binmode STDOUT,":utf8";

my $client = Activiti::Rest::Client->new(
  url => 'http://kermit:kermit@localhost:8080/activiti-rest/service'
);

my $users = $client->users->parsed_content;
my @ids = map { $_->{id} } @{ $users->{data} };
for my $id(@ids){
  print Dumper($client->user(userId => $id)->parsed_content);
  print Dumper($client->user_info(userId => $id)->parsed_content);