| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
#!/usr/bin/env perl |
|
2
|
1
|
|
|
1
|
|
1660
|
use Mojolicious::Lite; |
|
|
1
|
|
|
|
|
158946
|
|
|
|
1
|
|
|
|
|
8
|
|
|
3
|
1
|
|
|
1
|
|
28463
|
use Sys::Hostname (); |
|
|
1
|
|
|
|
|
1522
|
|
|
|
1
|
|
|
|
|
26
|
|
|
4
|
1
|
|
|
1
|
|
7
|
use Mojo::Util; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
75
|
|
|
5
|
1
|
50
|
|
1
|
|
386
|
BEGIN { unshift @INC, "$FindBin::Bin/../lib" if -d "lib" } |
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
my $secret = Mojo::Util::md5_sum($$. rand 1_000_000); |
|
8
|
|
|
|
|
|
|
my $path = $ENV{UBIC_BASE_PATH} || "/$secret"; |
|
9
|
|
|
|
|
|
|
my $config; |
|
10
|
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
if($ENV{MOJO_CONFIG}) { |
|
12
|
|
|
|
|
|
|
plugin 'Config'; |
|
13
|
|
|
|
|
|
|
$config = app->config->{ubic}; |
|
14
|
|
|
|
|
|
|
} |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
$config->{route} ||= app->routes->route($config->{path} || $path); |
|
17
|
|
|
|
|
|
|
$config->{json} ||= { hostname => Sys::Hostname::hostname, perl => $^X }; |
|
18
|
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
plugin Ubic => $config; |
|
20
|
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
if(my $log = app->config->{log}) { |
|
22
|
|
|
|
|
|
|
app->log->level($log->{level}); |
|
23
|
|
|
|
|
|
|
app->log->path($log->{file}); |
|
24
|
|
|
|
|
|
|
delete app->log->{handle}; # make sure we rebuild handle |
|
25
|
|
|
|
|
|
|
} |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
app->log->info("Base path: $path"); |
|
28
|
|
|
|
|
|
|
app->secrets([$secret]); # not really required |
|
29
|
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
app->start; |