Activiti-Rest-Client

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

      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;
    
      my @ids = map { $_->{id} } @{ $pdefs->{data} };
      for my $id(@ids){
        print Dumper($client->process_definition(processDefinitionId => $id)->parsed_content);
      }

CONSTRUCTOR parameters

 url

      base url of the activiti rest api
      activiti-rest uses basic http authentication, so username and password should be included in the url

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

  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;

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

=head1 CONSTRUCTOR parameters

=head2 url

  base url of the activiti rest api
  activiti-rest uses basic http authentication, so username and password should be included in the url

test/deployments.pl  view on Meta::CPAN

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/models.pl  view on Meta::CPAN

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

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;

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

test/process_definitions_ids.pl  view on Meta::CPAN

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

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/tasks.pl  view on Meta::CPAN

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

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);
}