line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
MODULE = Geo::Geos PACKAGE = Geo::Geos::Noding::BasicSegmentString |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
PROTOTYPES: DISABLE |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
BasicSegmentString* new(SV*, Array coords) { |
6
|
10
|
|
|
|
|
|
auto seq = Helper::convert_coords(coords); |
7
|
10
|
50
|
|
|
|
|
auto deep_clone = seq.clone(); |
|
|
50
|
|
|
|
|
|
8
|
5
|
50
|
|
|
|
|
RETVAL = new BasicSegmentString(deep_clone, NULL); |
9
|
5
|
50
|
|
|
|
|
} |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
void BasicSegmentString::DESTROY() { |
12
|
5
|
50
|
|
|
|
|
delete THIS->getCoordinates(); |
|
|
50
|
|
|
|
|
|
13
|
5
|
50
|
|
|
|
|
} |
14
|
|
|
|
|
|
|
|
15
|
1
|
50
|
|
|
|
|
int BasicSegmentString::getSegmentOctant (unsigned int index) |
16
|
|
|
|
|
|
|
|
17
|
0
|
|
|
|
|
|
int CLONE_SKIP (...) { PERL_UNUSED_VAR(items); RETVAL = 1; } |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
BOOT { |
20
|
46
|
50
|
|
|
|
|
Stash(__PACKAGE__).inherit("Geo::Geos::Noding::SegmentString"); |
|
|
50
|
|
|
|
|
|
21
|
|
|
|
|
|
|
} |