j1n3l0

package Client;

use Moo;
use Type::Utils qw< class_type >;
use Types::Standard -types;
use URI;

use experimental qw< signatures >;

has service_uri => (

j1n3l0

use Test2::V0;

package Api::Client 1.0 {
  use Moose;
  use Moose::Util::TypeConstraints;
  use Readonly;

  Readonly my $DEFAULT_HOSTNAME => 'api.example.com';

  subtype 'EmptyStr', as 'Str', where { /^$/ };

j1n3l0

requires Minion => '== 10.13';

j1n3l0

use Test2::V0;
use File::Temp;
use Redis;
use Test::RedisServer;

my $test_server = Test::RedisServer->new(
    tmpdir => File::Temp->newdir( CLEANUP => 1, DIR => '.' ),
    conf   => { port => 9000 },
) || bail_out('Failed to start test redis server');

j1n3l0

use Test2::V0;

subtest 'Overriding "isa" on a mock object' => sub {
    isa_ok(
        mock( {}, override => [ isa => sub { pop eq 'Foo' } ] ),
        ['Foo'],
        'should correctly respond to "isa"',
    );
};

j1n3l0

use Test2::V0;

subtest 'Given a class with attribute: Maybe[`a]' => sub {

    package Job {
        use Moo;
        use Types::Standard qw< :types >;
        has title => ( is => 'ro', isa => Str );
    };

j1n3l0

package PwC;

use 5.032;
use Moo;

use SOAP::Data::Builder::Simple qw< data >;
use Type::Params qw< Invocant compile >;
use Type::Utils qw< class_type >;
use Types::Standard qw< ArrayRef >;

j1n3l0

package Service;

use Moo;
use Type::Utils qw( class_type );
use Types::Standard qw( Str );
use URI;

has endpoint => (
    coerce   => 1,
    default  => 'https://example.com/service',

j1n3l0

package Foo;

use Type::Library -base;
use Type::Utils qw( as declare );
use Types::Standard qw( Dict HashRef Int slurpy );

declare Params, as Dict[ id => Int, slurpy HashRef ];

1;

j1n3l0

use Test2::V0;

package Controller {
    use 5.030;
    use Moo;
    use Type::Params qw< Invocant compile >;
    use Type::Utils qw< declare as where >;
    use Types::Standard qw< :types >;

    my $Controller = declare as Object,