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;
|
package Slic3r::Point::XS;
|
||||||
use overload
|
use overload
|
||||||
'@{}' => sub { $_[0]->_toPerl };
|
'@{}' => sub { $_[0]->arrayref };
|
||||||
|
|
||||||
package Slic3r::ExPolygon::XS;
|
package Slic3r::ExPolygon::XS;
|
||||||
use overload
|
use overload
|
||||||
'@{}' => sub { $_[0]->_toPerl };
|
'@{}' => sub { $_[0]->arrayref };
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
@ -18,7 +18,7 @@ class ExPolygon
|
|||||||
public:
|
public:
|
||||||
Polygon contour;
|
Polygon contour;
|
||||||
Polygons holes;
|
Polygons holes;
|
||||||
SV* _toPerl();
|
SV* arrayref();
|
||||||
};
|
};
|
||||||
|
|
||||||
Polygon*
|
Polygon*
|
||||||
|
@ -21,7 +21,7 @@ ExPolygon::new(...)
|
|||||||
RETVAL
|
RETVAL
|
||||||
|
|
||||||
SV*
|
SV*
|
||||||
ExPolygon::_toPerl()
|
ExPolygon::arrayref()
|
||||||
CODE:
|
CODE:
|
||||||
const unsigned int num_holes = THIS->holes.size();
|
const unsigned int num_holes = THIS->holes.size();
|
||||||
AV* av = newAV();
|
AV* av = newAV();
|
||||||
|
@ -10,7 +10,7 @@
|
|||||||
%{
|
%{
|
||||||
|
|
||||||
SV*
|
SV*
|
||||||
Point::_toPerl()
|
Point::arrayref()
|
||||||
CODE:
|
CODE:
|
||||||
RETVAL = point2perl(*THIS);
|
RETVAL = point2perl(*THIS);
|
||||||
OUTPUT:
|
OUTPUT:
|
||||||
|
Loading…
Reference in New Issue
Block a user