line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Games::Lacuna::Task::Constants; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
1597
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
40
|
|
4
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
30
|
|
5
|
1
|
|
|
1
|
|
19
|
use 5.010; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
164
|
|
6
|
|
|
|
|
|
|
our $VERSION = $Games::Lacuna::Task::VERSION; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# do not change order |
9
|
|
|
|
|
|
|
our @RESOURCES = qw(water ore energy food); |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
our @RESOURCES_ALL = (@RESOURCES,'waste'); |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
our %CARGO = ( |
14
|
|
|
|
|
|
|
ship => 50_000, |
15
|
|
|
|
|
|
|
glyph => 100, |
16
|
|
|
|
|
|
|
plan => 10_000, |
17
|
|
|
|
|
|
|
prisoner=> 350, |
18
|
|
|
|
|
|
|
); |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
our $SCREEN_WIDTH = 78; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
our $MAX_MAP_QUERY = 30; # 30 x 30 units |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
our $MAX_STAR_CACHE_AGE = 60*60*24*31*3; # Three months |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |