blob: 3758cabc751d65c116e55f9ed7a426f295468b0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#include "myinit.h"
#include "Point.hpp"
Point::~Point() {}
SV*
Point::_toPerl() {
AV* av = newAV();
av_fill(av, 1);
av_store_point_xy(av, x, y);
return (SV*)newRV_noinc((SV*)av);
}
|