line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Alien::geos::af;
|
2
|
|
|
|
|
|
|
|
3
|
2
|
|
|
2
|
|
330587
|
use strict;
|
|
2
|
|
|
|
|
15
|
|
|
2
|
|
|
|
|
71
|
|
4
|
2
|
|
|
2
|
|
12
|
use warnings;
|
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
75
|
|
5
|
2
|
|
|
2
|
|
11
|
use parent qw( Alien::Base );
|
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
23
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our $VERSION = '1.011';
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# make sure we find geos and geos_c
|
10
|
|
|
|
|
|
|
sub dynamic_libs {
|
11
|
1
|
|
|
1
|
1
|
659
|
my ($class) = @_;
|
12
|
|
|
|
|
|
|
|
13
|
2
|
|
|
2
|
|
12779
|
use FFI::CheckLib 0.23 ();
|
|
2
|
|
|
|
|
7415
|
|
|
2
|
|
|
|
|
378
|
|
14
|
|
|
|
|
|
|
|
15
|
1
|
50
|
|
|
|
6
|
if ($class->install_type('system')) {
|
16
|
0
|
|
|
|
|
0
|
my @libs;
|
17
|
0
|
|
|
|
|
0
|
push @libs, FFI::CheckLib::find_lib(
|
18
|
|
|
|
|
|
|
lib => 'geos',
|
19
|
|
|
|
|
|
|
);
|
20
|
0
|
|
|
|
|
0
|
push @libs, FFI::CheckLib::find_lib(
|
21
|
|
|
|
|
|
|
lib => 'geos_c',
|
22
|
|
|
|
|
|
|
);
|
23
|
0
|
0
|
|
|
|
0
|
return wantarray ? @libs : $libs[0];
|
24
|
|
|
|
|
|
|
}
|
25
|
|
|
|
|
|
|
else {
|
26
|
1
|
|
|
|
|
30
|
my $dir = $class->dist_dir;
|
27
|
|
|
|
|
|
|
|
28
|
1
|
|
|
|
|
293
|
my $dynamic = Path::Tiny->new($class->dist_dir, 'dynamic');
|
29
|
1
|
50
|
|
|
|
296
|
if (-d $dynamic) {
|
30
|
0
|
|
|
|
|
0
|
$dir = $dynamic;
|
31
|
|
|
|
|
|
|
}
|
32
|
|
|
|
|
|
|
|
33
|
1
|
|
|
|
|
52
|
my @libs = $class->SUPER::dynamic_libs;
|
34
|
|
|
|
|
|
|
|
35
|
1
|
|
|
|
|
25214
|
push @libs, FFI::CheckLib::find_lib(
|
36
|
|
|
|
|
|
|
lib => ['geos', 'geos_c'],
|
37
|
|
|
|
|
|
|
libpath => $dir,
|
38
|
|
|
|
|
|
|
systempath => [],
|
39
|
|
|
|
|
|
|
recursive => 1,
|
40
|
|
|
|
|
|
|
);
|
41
|
|
|
|
|
|
|
#warn "FOUND LIBS: " . join (':', @libs);
|
42
|
1
|
50
|
|
|
|
23251
|
return wantarray ? @libs : $libs[0];
|
43
|
|
|
|
|
|
|
}
|
44
|
|
|
|
|
|
|
}
|
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
sub cflags {
|
47
|
1
|
|
|
1
|
1
|
21895
|
my ($self) = @_;
|
48
|
1
|
|
|
|
|
7
|
$self->SUPER::cflags;
|
49
|
|
|
|
|
|
|
}
|
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
1;
|
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
__END__
|