The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 2;

{
    package MyAPI::Handler;

    use Moose;
    extends 'Tapir::Server::Handler::Class';

    __PACKAGE__->service('Accounts');

    __PACKAGE__->add_method('createAccount');
    sub createAccount {
    }

    __PACKAGE__->add_method('getAccount');
    sub getAccount {
    }
}

is(MyAPI::Handler->service, 'Accounts', "service()");
is_deeply(
    MyAPI::Handler->methods,
    {
        createAccount => 'normal',
        getAccount    => 'normal',
    },
    "methods()"
);