File Coverage

blib/lib/Net/Duo/Admin/Integration.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	36	36	100.0

# Representation of a single Duo integration for the Admin API.
#
# This class wraps the Duo representation of a single Duo integration, as
# returned by (for example) the Admin /integrations REST endpoint.
#
# SPDX-License-Identifier: MIT

package Net::Duo::Admin::Integration 1.02;

use 5.014;
use strict;
use warnings;

use parent qw(Net::Duo::Object);

# Data specification for converting JSON into our object representation.  See
# the Net::Duo::Object documentation for syntax information.
## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _fields {
    return {
        adminapi_admins               => ['simple', 'zero_or_one'],
        adminapi_info                 => ['simple', 'zero_or_one'],
        adminapi_integrations         => ['simple', 'zero_or_one'],
        adminapi_read_log             => ['simple', 'zero_or_one'],
        adminapi_read_resource        => ['simple', 'zero_or_one'],
        adminapi_settings             => ['simple', 'zero_or_one'],
        adminapi_write_resource       => ['simple', 'zero_or_one'],
        enroll_policy                 => 'simple',
        greeting                      => 'simple',
        groups_allowed                => 'array',
        integration_key               => 'simple',
        ip_whitelist                  => 'array',
        ip_whitelist_enroll_policy    => 'simple',
        name                          => 'simple',
        notes                         => 'simple',
        secret_key                    => 'simple',
        trusted_device_days           => 'simple',
        type                          => 'simple',
        username_normalization_policy => 'simple',
        visual_style                  => 'simple',
    };
}
## use critic

# Install our accessors.
Net::Duo::Admin::Integration->install_accessors;

# Override the new method to support creating an integration from an ID
# instead of decoded JSON data.
#
# $class      - Class of object to create
# $duo        - Net::Duo object to use to create the object
# $id_or_data - Integration ID or reference to data
#
# Returns: Newly-created object
#  Throws: Net::Duo::Exception on any problem creating the object
sub new {
    my ($class, $duo, $id_or_data) = @_;
    if (!ref($id_or_data)) {
        my $uri = "/admin/v1/integrations/$id_or_data";
        $id_or_data = $duo->call_json('GET', $uri);
    }
    return $class->SUPER::new($duo, $id_or_data);
}

# Override the create method to add the appropriate URI.
#
# $class    - Class of object to create
# $duo      - Net::Duo object to use to create the object
# $data_ref - Data for new object as a reference to a hash
#
# Returns: Newly-created object
#  Throws: Net::Duo::Exception on any problem creating the object
sub create {
    my ($class, $duo, $data_ref) = @_;
    return $class->SUPER::create($duo, '/admin/v1/integrations', $data_ref);
}

# Delete the integration from Duo.  After this call, the object should be
# treated as read-only since it can no longer be usefully updated.
#
# $self - The Net::Duo::Admin::Integration object to delete
#
# Returns: undef
#  Throws: Net::Duo::Exception on any problem deleting the object
## no critic (Subroutines::ProhibitBuiltinHomonyms)
sub delete {
    my ($self) = @_;
    my $id = $self->{integration_key};
    $self->{_duo}->call_json('DELETE', "/admin/v1/integrations/$id");
    return;
}
## use critic

1;
__END__