Select Code to Download

sub world_location
{
        my ($self) = @_;
        return ($self->{x}, $self->{y});
}

#include "EXTERN.h"
#include "perl.h"
...
AV*
world_location(self)
        SV* self

NOK 1#     Failed test (t/025_unit.t at line 128)       
#          got: 140725396
...
t/025_unit...........NOK 2#     Failed test (t/025_unit.t at line 129)
+       
#          got: undef
#     expected: 84