view release on metacpan or  search on metacpan

t/011_inflate.t  view on Meta::CPAN

        ['Content-Type' => 'application/json'],
        '{"result": "success", "message": "hello world.\n"}',
    );
};

{
    package Mock::Inflate::Result;

    sub new {
        my ($class, %args) = @_;
        bless \%args => $class;
    }

    sub result {
        shift->{result};
    }

    1;
}

{

t/02_row/001_inflate.t  view on Meta::CPAN

use Spica;
use Spica::Spec::Declare;
use Spica::Receiver::Row;

{
    package t::Mock::Name;

    sub new {
        my ($class, %args) = @_;
        return bless \%args => $class;
    }

    sub value { shift->{name}; }

    package t::Mock::Birth;

    sub new {
        my ($class, %args) = @_;
        return bless \%args => $class;
    }

    sub value { shift->{value}; }
}

my $spica = Spica->new(
    host => 'localhost',
    spec => spec {
        client {
            name 'default';