Rename _toPerl() to arrayref()
This commit is contained in:
parent
b42333feed
commit
d06ac3e31e
@ -9,10 +9,10 @@ XSLoader::load(__PACKAGE__, $VERSION);
|
||||
|
||||
package Slic3r::Point::XS;
|
||||
use overload
|
||||
'@{}' => sub { $_[0]->_toPerl };
|
||||
'@{}' => sub { $_[0]->arrayref };
|
||||
|
||||
package Slic3r::ExPolygon::XS;
|
||||
use overload
|
||||
'@{}' => sub { $_[0]->_toPerl };
|
||||
'@{}' => sub { $_[0]->arrayref };
|
||||
|
||||
1;
|
||||
|
@ -18,7 +18,7 @@ class ExPolygon
|
||||
public:
|
||||
Polygon contour;
|
||||
Polygons holes;
|
||||
SV* _toPerl();
|
||||
SV* arrayref();
|
||||
};
|
||||
|
||||
Polygon*
|
||||
|
@ -21,7 +21,7 @@ ExPolygon::new(...)
|
||||
RETVAL
|
||||
|
||||
SV*
|
||||
ExPolygon::_toPerl()
|
||||
ExPolygon::arrayref()
|
||||
CODE:
|
||||
const unsigned int num_holes = THIS->holes.size();
|
||||
AV* av = newAV();
|
||||
|
@ -10,7 +10,7 @@
|
||||
%{
|
||||
|
||||
SV*
|
||||
Point::_toPerl()
|
||||
Point::arrayref()
|
||||
CODE:
|
||||
RETVAL = point2perl(*THIS);
|
||||
OUTPUT:
|
||||
|
Loading…
Reference in New Issue
Block a user