line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package ArangoDB2::Admin; |
2
|
|
|
|
|
|
|
|
3
|
20
|
|
|
20
|
|
87
|
use strict; |
|
20
|
|
|
|
|
32
|
|
|
20
|
|
|
|
|
668
|
|
4
|
20
|
|
|
20
|
|
85
|
use warnings; |
|
20
|
|
|
|
|
28
|
|
|
20
|
|
|
|
|
546
|
|
5
|
|
|
|
|
|
|
|
6
|
20
|
|
|
|
|
8188
|
use base qw( |
7
|
|
|
|
|
|
|
ArangoDB2::Base |
8
|
20
|
|
|
20
|
|
78
|
); |
|
20
|
|
|
|
|
24
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
# echo |
13
|
|
|
|
|
|
|
# |
14
|
|
|
|
|
|
|
# GET /_admin/echo |
15
|
|
|
|
|
|
|
# |
16
|
|
|
|
|
|
|
# The call returns an object that includes the following attributes: |
17
|
|
|
|
|
|
|
# |
18
|
|
|
|
|
|
|
# headers: a list of HTTP headers received |
19
|
|
|
|
|
|
|
# requestType: the HTTP request method (e.g. GET) |
20
|
|
|
|
|
|
|
# parameters: list of URL parameters received |
21
|
|
|
|
|
|
|
sub echo |
22
|
|
|
|
|
|
|
{ |
23
|
0
|
|
|
0
|
1
|
|
my($self) = @_; |
24
|
|
|
|
|
|
|
|
25
|
0
|
|
|
|
|
|
return $self->arango->http->get('/_admin/echo'); |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
1; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
__END__ |