File Coverage

blib/lib/RPC/ExtDirect/Test/Pkg/Foo.pm

Criterion	Covered	Total	%
statement	39	42	92.8
branch			n/a
condition			n/a
subroutine	16	17	94.1
pod	0	8	0.0
total	55	67	82.0

#
# WARNING WARNING WARNING
#
# DO NOT CHANGE ANYTHING IN THIS MODULE. OTHERWISE, A LOT OF API
# AND OTHER TESTS MAY BREAK.
#
# This module is here to test certain behaviors. If you need
# to test something else, add another test module.
# It's that simple.
#

# This does not need to be indexed by PAUSE
package
    RPC::ExtDirect::Test::Pkg::Foo;

use strict;
use warnings;
no  warnings 'uninitialized';

use RPC::ExtDirect;

# Return scalar result
sub foo_foo : ExtDirect(1, before => \&foo_before) {
    return "foo! '${_[1]}'"
}

# Return arrayref result
sub foo_bar
    : ExtDirect(2, instead => \&foo_instead)
{
    return [ 'foo! bar!', @_[1, 2], ];
}

# Return hashref result
sub foo_baz : ExtDirect( params  => [foo, bar, baz], before  => \&foo_before, after   => \&foo_after) {
    my $class = shift;
    my %param = @_;

    my $ret = { msg => 'foo! bar! baz!', foo => $param{foo},
                bar => $param{bar},      baz => $param{baz},
              };

    delete @param{ qw(foo bar baz) };
    @$ret{ keys %param } = values %param;

    return $ret;
}

# Testing zero parameters
sub foo_zero : ExtDirect(0) {
    my ($class) = @_;

    my $ret = [ @_ ];

    return $ret;
}

# Testing blessed object return
sub foo_blessed : ExtDirect {
    return bless {}, 'foo';
}

# Testing hooks
sub foo_before {
    return 1;
}

sub foo_instead {
    my ($class, %params) = @_;

    return $params{orig}->();
}

sub foo_after {
}

1;