view release on metacpan or  search on metacpan

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

        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;
}