view release on metacpan or  search on metacpan

t/4_server_msg.t  view on Meta::CPAN

is_deeply($s->get_value({
        name => '$main::variable',
    }),
    {
        action => 'result',
        result => 1234,
    },
    'get_value');


$INC{'TestModule.pm'} = 't/4_server_msg.t';
$s->import_module({
        name => 'TestModule',
        args => [qw/a b/],
        kwargs => {c => 'd'},
    });
is_deeply(\@TestModule::use_param, [qw/a b c d/], 'import_module');


$s->set_attribute({
        number => 2,
        name => 'k',
        value => 'newval',
    });
is($o->{'k'}, 'newval', 'set_attribute');

$s->set_class_attribute({
        class => 'TestObject',
        name => '$static_attr',
        value => 332211,
    });
is($TestObject::static_attr, 332211, 'set_class_attribute');

$s->set_value({
        name => '$main::variable',
        value => 4321,
    });
is($variable, 4321, 'set_value');


sub test_func {
    $context = wantarray;
    @param = @_;
    return 4444;
}


package TestObject;

our $context;
our $static_attr;

BEGIN {
    $context = 'not set yet';
    $static_attr = 112233;
}

sub new {
    my $class = shift;
    return bless {k => 'v'}, $class;
}

sub test_method {
    my $self = shift;
    $self->{'context'} = wantarray;
    $self->{'param'} = [@_];
    return (55555, 666666);
}

sub class_method {
    my $class = shift;
    $context = wantarray;
    return 7777777;
}


package TestModule;

our @use_param;

sub import {
    my $package = shift;
    @use_param = @_;
}


package TestServer;

use parent 'Alien::Taco::Server';

sub new {
    my $class = shift;
    return bless {
        nobject => 0,
        objects => {},
    }, $class;
}