view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - fixed packaging issue

0.04

    - fixed deps. RT#50463
      (reported by andk++)

0.03

    - oops. $msgid should be IV.
      Perl type system is ...

0.02
    - oops

0.01    Wed Jul 15 14:38:45 2009
        - original version

lib/AnyEvent/MPRPC/Client.pm  view on Meta::CPAN

    };
    weaken $self;

    $self->_connection_guard($guard);
}

sub call {
    my ($self, $method) = (shift, shift);
    my $param = (@_ == 1 && ref $_[0] eq "ARRAY") ? $_[0] : [@_];

    my $msgid = $self->_next_id->();

    my $request = [
        MP_TYPE_REQUEST,
        int($msgid), # should be IV
        $method,
        $param,
    ];

    if ($self->handler) {
        $self->handler->push_write( msgpack => $request );
    }
    else {
        push @{ $self->_request_pool }, $request;
    }

    # $msgid is stringified, but $request->{MP_RES_MSGID] is still IV
    $self->_callbacks->{ $msgid } = AnyEvent->condvar;
}

sub _handle_response_cb {
    my $self = shift;

    weaken $self;

    return sub {
        $self || return;

xt/01_podspell.t  view on Meta::CPAN

eval q{ use Test::Spelling };
plan skip_all => "Test::Spelling is not installed." if $@;
add_stopwords(map { split /[\s\:\-]/ } <DATA>);
$ENV{LANG} = 'C';
all_pod_files_spelling_ok('lib');
__DATA__
Tokuhiro Matsuno
tokuhirom  slkjfd gmail.com
AnyEvent::MPRPC
params
msgid
Coro
Hostname
MessagePack
RPC
Str
blockingly
callback
condvar
condvars
occured