Group
Extension

Matches 5

WebService-Freshservice ( T/TE/TECHMAN/WebService-Freshservice-0.004.tar.gz, TECHMAN, 2017; MetaCPAN )
WebService-Freshservice/lib/WebService/Freshservice.pm ( view source; MetaCPAN )
 "query=phone is $phone";
  }
  my $endpoint = $caller eq 'requesters' ? "itil/requesters.json" : "agents.json";
  $endpoint .= $query unless $query eq "?";
  $endpoint .= $query eq "?" ? "?state=$sta
er}{timezone}     = $timezone if $timezone;
 
  my $data = $self->_api->post_api("itil/requesters.json",$content);
  return WebService::Freshservice::User->new( api => $self->_api, _raw => $data, id =
WebService-Freshservice ( T/TE/TECHMAN/WebService-Freshservice-0.004.tar.gz, TECHMAN, 2017; MetaCPAN )
WebService-Freshservice/lib/WebService/Freshservice/User/CustomField.pm ( view source; MetaCPAN )
;
use Method::Signatures 20140224;
use List::MoreUtils qw(any);
use Carp qw( croak );
use JSON qw( encode_json );
use Moo;
use namespace::clean;

# ABSTRACT: Freshservice User Custom Field

our $VERSI
put_api( "itil/requesters/".$self->id.".json", $data);
  return 1;
}

# Internal method that returns a clean perl data structure
# for encode_json
method TO_JSON {
  return $self->value;
}

1;

__END_
WebService-Freshservice ( T/TE/TECHMAN/WebService-Freshservice-0.004.tar.gz, TECHMAN, 2017; MetaCPAN )
WebService-Freshservice/lib/WebService/Freshservice/API.pm ( view source; MetaCPAN )
vice::API;

use v5.010;
use strict;
use warnings;
use Method::Signatures 20140224;
use JSON qw( from_json to_json );
use MIME::Base64 qw( encode_base64 );
use Try::Tiny;
use Carp qw( croak );
use LWP:
imeout(60);
  $ua->env_proxy;
  $ua->default_headers->push_header( 'Content-Type' => "application/json" );

  # The Freshservice api isn't standards complaint as far as auth goes. It returns 200 OK
  
ss $result->is_success;
 
  my $data;
  try {
    $data = from_json($result->decoded_content);
  } catch {
    croak("Failed to parse json $_");
  };
  return $data;
}


method post_api ($endpoint,$co
WebService-Freshservice ( T/TE/TECHMAN/WebService-Freshservice-0.004.tar.gz, TECHMAN, 2017; MetaCPAN )
WebService-Freshservice/lib/WebService/Freshservice/User.pm ( view source; MetaCPAN )
;
use Method::Signatures 20140224;
use List::MoreUtils qw(any);
use Carp qw( croak );
use JSON qw( encode_json );
use WebService::Freshservice::User::CustomField;
use Moo;
use MooX::HandlesVia;
use na
learer => 1 );

method _build__raw {
  return $self->api->get_api( "itil/requesters/".$self->id.".json" );
}

method _build_user {
  # Grab our calling method by dropping 'WebService::Freshservice::Us
rn;
}


method delete_requester {
  return $self->api->delete_api( "itil/requesters/".$self->id.".json" );
}


method update_requester(:$attr?, :$value?) {
  if ( $attr ) {
    croak "'value' required
WebService-Freshservice ( T/TE/TECHMAN/WebService-Freshservice-0.004.tar.gz, TECHMAN, 2017; MetaCPAN )
WebService-Freshservice/lib/WebService/Freshservice/Agent.pm ( view source; MetaCPAN )
);

# Updateable Fields

method _build__raw {
  return $self->api->get_api( "agents/".$self->id.".json" );
}

method _build_user {
  # Grab our calling method by dropping 'WebService::Freshservice::Us

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.