From 9899530beb519a18e947e671110ede6724f00df0 Mon Sep 17 00:00:00 2001 From: Maksym Novozhylov Date: Fri, 18 Sep 2020 15:36:10 +0200 Subject: [PATCH 1/2] Add send_message_to_rooms --- Build.PL | 2 +- CHANGES.md | 3 +++ lib/Net/Upwork/API.pm | 2 +- lib/Net/Upwork/API/Routers/Messages.pm | 18 ++++++++++++++++++ t/03.routers_messages.t | 1 + 5 files changed, 24 insertions(+), 2 deletions(-) diff --git a/Build.PL b/Build.PL index 18bc1cc..34e5c89 100644 --- a/Build.PL +++ b/Build.PL @@ -25,7 +25,7 @@ my $builder = Module::Build->new( module_name => 'Net::Upwork::API', license => 'apache', dist_author => 'Maksym Novozhylov ', - dist_version => '2.1.1', + dist_version => '2.1.2', dist_abstract => 'Perl bindings for Upwork API (OAuth2)', build_requires => { 'Test::More' => '0.66', diff --git a/CHANGES.md b/CHANGES.md index 6b09295..43d1dd8 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,3 +1,6 @@ +## 2.1.1 +* Add Room Messages API + ## 2.1.0 * Add Specialties API * Add Skills V2 API diff --git a/lib/Net/Upwork/API.pm b/lib/Net/Upwork/API.pm index aa13df6..661f680 100644 --- a/lib/Net/Upwork/API.pm +++ b/lib/Net/Upwork/API.pm @@ -19,7 +19,7 @@ use warnings; use Net::Upwork::API::Config; use Net::Upwork::API::Client; -our $VERSION = '2.1.1'; +our $VERSION = '2.1.2'; use constant TOKEN_TYPE_BEARER => 'Bearer'; diff --git a/lib/Net/Upwork/API/Routers/Messages.pm b/lib/Net/Upwork/API/Routers/Messages.pm index 31d77b4..2821500 100644 --- a/lib/Net/Upwork/API/Routers/Messages.pm +++ b/lib/Net/Upwork/API/Routers/Messages.pm @@ -196,6 +196,24 @@ sub send_message_to_room { return $self->client()->post("/messages/v3/" . $company . "/rooms/" . $room_id . '/stories', %params); } +=item send_message_to_rooms + + Send a message to a batch of rooms + +B + + JSON response as a string + +=cut + +sub send_message_to_rooms { + my $self = shift; + my $company = shift; + my %params = @_; + + return $self->client()->post("/messages/v3/" . $company . '/stories/batch', %params); +} + =item update_room_settings Update a room settings diff --git a/t/03.routers_messages.t b/t/03.routers_messages.t index 53379fc..499087b 100644 --- a/t/03.routers_messages.t +++ b/t/03.routers_messages.t @@ -13,5 +13,6 @@ can_ok('Net::Upwork::API::Routers::Messages', 'get_room_by_application'); can_ok('Net::Upwork::API::Routers::Messages', 'get_room_by_contract'); can_ok('Net::Upwork::API::Routers::Messages', 'create_room'); can_ok('Net::Upwork::API::Routers::Messages', 'send_message_to_room'); +can_ok('Net::Upwork::API::Routers::Messages', 'send_message_to_rooms'); can_ok('Net::Upwork::API::Routers::Messages', 'update_room_settings'); can_ok('Net::Upwork::API::Routers::Messages', 'update_room_metadata'); From 026f258d7e91eb1b1bc67ef0ef5dc7acad29caab Mon Sep 17 00:00:00 2001 From: Maksym Novozhylov Date: Fri, 18 Sep 2020 15:40:25 +0200 Subject: [PATCH 2/2] Fix test --- t/03.routers_messages.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/03.routers_messages.t b/t/03.routers_messages.t index 499087b..510cb01 100644 --- a/t/03.routers_messages.t +++ b/t/03.routers_messages.t @@ -1,6 +1,6 @@ #!/usr/bin/env perl use strict; -use Test::More tests => 11; +use Test::More tests => 12; use lib qw(lib); use Net::Upwork::API::Routers::Messages;