File Coverage

blib/lib/SignalWire/Agents/REST/Namespaces/Resources.pm

Criterion	Covered	Total	%
statement	39	89	43.8
branch	0	12	0.0
condition			n/a
subroutine	13	35	37.1
pod	0	22	0.0
total	52	158	32.9

package SignalWire::Agents::REST::Namespaces::Resources;
use strict;
use warnings;
use Moo;

# --- Addresses (no update) ---
package SignalWire::Agents::REST::Namespaces::Addresses;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub list {
    my ($self, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_base_path, params => $p);
}

sub create {
    my ($self, %kwargs) = @_;
    return $self->_http->post($self->_base_path, body => \%kwargs);
}

sub get {
    my ($self, $address_id) = @_;
    return $self->_http->get($self->_path($address_id));
}

# --- Queues ---
package SignalWire::Agents::REST::Namespaces::Queues;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::CrudResource';
has '+_update_method' => ( default => sub { 'PUT' } );

sub list_members {
    my ($self, $queue_id, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_path($queue_id, 'members'), params => $p);
}

sub get_next_member {
    my ($self, $queue_id) = @_;
    return $self->_http->get($self->_path($queue_id, 'members', 'next'));
}

# --- Recordings (read-only + delete) ---
package SignalWire::Agents::REST::Namespaces::Recordings;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub list {
    my ($self, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_base_path, params => $p);
}

sub get {
    my ($self, $recording_id) = @_;
    return $self->_http->get($self->_path($recording_id));
}

sub delete_recording {
    my ($self, $recording_id) = @_;
    return $self->_http->delete_request($self->_path($recording_id));
}

# --- NumberGroups ---
package SignalWire::Agents::REST::Namespaces::NumberGroups;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::CrudResource';
has '+_update_method' => ( default => sub { 'PUT' } );

sub list_memberships {
    my ($self, $group_id, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_path($group_id, 'number_group_memberships'), params => $p);
}

sub add_membership {
    my ($self, $group_id, %kwargs) = @_;
    return $self->_http->post($self->_path($group_id, 'number_group_memberships'), body => \%kwargs);
}

# --- VerifiedCallers ---
package SignalWire::Agents::REST::Namespaces::VerifiedCallers;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::CrudResource';
has '+_update_method' => ( default => sub { 'PUT' } );

sub redial_verification {
    my ($self, $caller_id) = @_;
    return $self->_http->post($self->_path($caller_id, 'verification'));
}

sub submit_verification {
    my ($self, $caller_id, %kwargs) = @_;
    return $self->_http->put($self->_path($caller_id, 'verification'), body => \%kwargs);
}

# --- SipProfile (singleton) ---
package SignalWire::Agents::REST::Namespaces::SipProfile;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub get {
    my ($self) = @_;
    return $self->_http->get($self->_base_path);
}

sub update {
    my ($self, %kwargs) = @_;
    return $self->_http->put($self->_base_path, body => \%kwargs);
}

# --- Lookup ---
package SignalWire::Agents::REST::Namespaces::Lookup;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub phone_number {
    my ($self, $e164, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_path('phone_number', $e164), params => $p);
}

# --- ShortCodes (read + update) ---
package SignalWire::Agents::REST::Namespaces::ShortCodes;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub list {
    my ($self, %params) = @_;
    my $p = %params ? \%params : undef;
    return $self->_http->get($self->_base_path, params => $p);
}

sub get {
    my ($self, $short_code_id) = @_;
    return $self->_http->get($self->_path($short_code_id));
}

sub update {
    my ($self, $short_code_id, %kwargs) = @_;
    return $self->_http->put($self->_path($short_code_id), body => \%kwargs);
}

# --- ImportedNumbers (create only) ---
package SignalWire::Agents::REST::Namespaces::ImportedNumbers;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub create {
    my ($self, %kwargs) = @_;
    return $self->_http->post($self->_base_path, body => \%kwargs);
}

# --- MFA ---
package SignalWire::Agents::REST::Namespaces::MFA;
use Moo;
extends 'SignalWire::Agents::REST::Namespaces::Base';

sub sms {
    my ($self, %kwargs) = @_;
    return $self->_http->post($self->_path('sms'), body => \%kwargs);
}

sub call {
    my ($self, %kwargs) = @_;
    return $self->_http->post($self->_path('call'), body => \%kwargs);
}

sub verify {
    my ($self, $request_id, %kwargs) = @_;
    return $self->_http->post($self->_path($request_id, 'verify'), body => \%kwargs);
}

1;