view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    return '_rpcs can be used';
}

sub substract {
    my ( $self, $tx, $dispatcher, $res, @params ) = @_;
    $res = 0 if !defined $res;
    $res -= $_ for @params;
    return $res;
}

sub update {
    my ( $self, $tx, $dispatcher, @params ) = @_;

    # notification only

    return;
}

sub foobar {
    my ( $self, $tx, $dispatcher ) = @_;