Accessors in xs

Select or download this

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

Select or download this

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

Select or download this

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

Select Code to Download