Yet Another CPAN Grep

WebService-MIAB ( M/MI/MINATI/WebService-MIAB-0.03.tar.gz, MINATI, 2018; MetaCPAN )

WebService-MIAB/lib/WebService/MIAB.pm ( view source; MetaCPAN )

use List::MoreUtils qw(uniq);

use JSON;
my $json = JSON->new->allow_nonref;

#Alias_Address
has alias_get_uri => ( is => 'ro', default => '/mail/aliases?format=json' );
has alias_add_uri => ( is => '

liases/remove' );

#User_Address
has user_get_uri => ( is => 'ro', default => '/mail/users?format=json');
has user_add_uri => ( is => 'ro', default => '/mail/users/add' );
has user_remove_uri => ( is

e doesn't return JSON for post requests
has '+deserializer' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        my $usejson = $self->json;
        sub {