view
B<Parameters>
$job_key
Job key
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub invite {
my $self = shift;
my $job_key = shift;
my %pecific engagement
B<Parameters>
$engagement_ref
Engagement reference
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $engagement_ref = shi
Team ID
$engagement
Engagement
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub assign {
my $self = shift;
my $company = shift;
my $trameters>
$engagement_ref
Engagement
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub assign_to_engagement {
my $self = shift;
my $engagement_rk for the client to approve
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub request_approval {
my $self = shift;
my %params = @_;
meters>
$submission_id
Submission ID
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub approve {
my $self = shift;
my $submission_id = shift;
meters>
$submission_id
Submission ID
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub reject {
my $self = shift;
my $submission_id = shift;
";
my $json = $self->json->{sql};
my $length = scalar @{$json};
for (my $i = 0; $i < $length; $i++) {
my $type = $self->template->get_section(@{$json}[$i]->{type});ablename/ig;
$template =~ s/<<fields>>/@{$json}[$i]->{fields}/ig;
$template =~ s/<<values>>/@{$json}[$i]->{values}/ig;
}
defaulteters>
$reference
Contract reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub suspend_contract {
my $self = shift;
my $reference = shifeters>
$reference
Contract reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub restart_contract {
my $self = shift;
my $reference = shifeters>
$reference
Contract reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub end_contract {
my $self = shift;
my $reference = shift;
:Share ':all';
use Moo;
use namespace::clean;
has json => (is => 'ro', default => sub { return dist_file('Map-Tube-Nuremberg', 'nuremberg-map.json') });
with 'Map::Tube';
1;
__END__
=pod
=encon
the two given stations. The map contains currently only (U-Bahn) subway stations.
Hint:
ID in JSON-File is VGN-Kennung as used in https://opendata.vag.de/dataset/haltestellen-id-geodaten.
If Stat Get list of engagements
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_list {
my $self = shift;
my %params = @_;
die "Tet specific engagement
B<Parameters>
$reference
Engagement reference
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $reference = shift;
nit_router($class, $api, ENTRY_POINT);
}
=item get_all
Get user roles
B<Return value>
JSON response as a string
=cut
sub get_all {
my $self = shift;
die "The legacy API was deprser
Get by specific user
B<Parameters>
$user_ref
User reference
B<Return value>
JSON response as a string
=cut
sub get_by_specific_user {
my $self = shift;
my $user_ref = s'class';
no warnings 'experimental::class';
class Daje::Generate::Sql::Base::Common {
field $json :param :reader;
field $template :param :reader;
field $sql :reader;
field $index = 0; = "";
method create_index {
my $sql = "";
my $json = $self->json->{index};
my $length = scalar @{$json};
for (my $i = 0; $i < $length; $i++) {
my $tempe>>/@{$json}[$i]->{type}/ig;
$template =~ s/<<fields>>/@{$json}[$i]->{fields}/ig;
@{$json}[$i]->{fields} =~ s/,/_/ig;
$template =~ s/<<field_names>>/@{$json}[$i]->ecific Freelancer
B<Parameters>
$freelancer_ref
Freelancer reference
B<Return value>
JSON response as a string
=cut
sub get_by_freelancer {
my $self = shift;
my $freelancer_ref Team
B<Parameters>
$freelancer_team_ref
Freelancer's team reference
B<Return value>
JSON response as a string
=cut
sub get_by_freelancers_team {
my $self = shift;
my $freelance
B<Parameters>
$freelancer_company_ref
Freelancer's company reference
B<Return value>
JSON response as a string
=cut
sub get_by_freelancers_company {
my $self = shift;
my $freelaist
Get list of offers
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_list {
my $self = shift;
my %params = @_;
die "Trameters>
$reference
Offer reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $reference = shift;
rameters>
$reference
Offer reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub actions {
my $self = shift;
my $reference = shift;
my Get list of applications
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_list {
my $self = shift;
my %params = @_;
die "Trs>
$reference
Application reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $reference = shift;
ist
Get list of offers
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_list {
my $self = shift;
my %params = @_;
die "Trameters>
$reference
Offer reference
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $reference = shift;
ke_offer
Make an Offer
B<Parameters>
$params
Hash of parameters
B<Return value>
JSON response as a string
=cut
sub make_offer {
my $self = shift;
my %params = @_;
die with financial info)
B<Parameters>
$company
Company
$team
Team
B<Return value>
JSON response as a string
=cut
sub get_by_team_full {
my $self = shift;
my $company = shift;hide financial info)
B<Parameters>
$company
Company
$team
Team
B<Return value>
JSON response as a string
=cut
sub get_by_team_limited {
my $self = shift;
my $company = shiSpecific Reports
B<Parameters>
$company
Company
$agency
Agency
B<Return value>
JSON response as a string
=cut
sub get_by_agency {
my $self = shift;
my $company = shift;
et_specific
Get specific profile
B<Parameters>
$key
Profile key
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $key = shift;
dier($class, $api, ENTRY_POINT);
}
=item get_my_info
Get Auth User Info
B<Return value>
JSON response as a string
=cut
sub get_my_info {
my $self = shift;
die "The legacy API was c
Get Specific User Indo
B<Parameters>
$user_ref
User reference
B<Return value>
JSON response as a string
=cut
sub get_specific {
my $self = shift;
my $user_ref = shift;
Fields -- create the fields part of a create table script
#
# SYNOPSIS
# ========
# my $json = from_json( qq (
# {
# "fields": {
# "userid": "varchar",
# plates'
# );
#
# my $fields = GenerateSQL::Sql::Table::Fields->new(
# json => $json,
# template => $template,
# );
#
# $fields->create_fields();
# fields->sql;
#
# METHODS
# =======
# create_fields() Create the SQL for field creation from JSON
# get_defaults($datatype) Get defaults part for the sql datatype
#
#
#
class Daje::Generatkey} = "";
$templates->{template_ind} = "";
try {
my $fields = $self->json->{fields};
foreach my $key (sort keys %{$fields}) {
if (index($key,'_ my $json_arr = $self->json;
my $length = scalar @{$json_arr};
for (my $i = 0; $i < $length; $i++) {
my $json = @{$json_arr}[$i];
if (exists($json->{version})) {
if(exists($json->{version}->{tables})) {
my $tables = $json->{version}->{tables};
my $len = scalar @{$tables};
for(my }
}
$sections .= $self->create_section($sql, $json->{version}->{number});
}
}
$self->set_sql($self->create_file($sectio