| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package App::PAIA; |
|
2
|
4
|
|
|
4
|
|
13
|
use strict; |
|
|
4
|
|
|
|
|
3
|
|
|
|
4
|
|
|
|
|
89
|
|
|
3
|
4
|
|
|
4
|
|
30
|
use v5.10; |
|
|
4
|
|
|
|
|
7
|
|
|
|
4
|
|
|
|
|
129
|
|
|
4
|
4
|
|
|
4
|
|
11
|
use parent 'App::Cmd'; |
|
|
4
|
|
|
|
|
5
|
|
|
|
4
|
|
|
|
|
19
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '0.28'; |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub global_opt_spec { |
|
9
|
23
|
|
|
23
|
1
|
33504
|
['base|b=s' => "base URL of PAIA server"], |
|
10
|
|
|
|
|
|
|
['auth=s' => "base URL of PAIA auth server"], |
|
11
|
|
|
|
|
|
|
['core=s' => "base URL of PAIA core server"], |
|
12
|
|
|
|
|
|
|
['insecure|k' => "disable verification of SSL certificates"], |
|
13
|
|
|
|
|
|
|
['config|c=s' => "configuration file (default: ./paia.json)"], |
|
14
|
|
|
|
|
|
|
['session|s=s' => "session file (default: ./paia-session.json)"], |
|
15
|
|
|
|
|
|
|
['verbose|v' => "show what's going on internally"], |
|
16
|
|
|
|
|
|
|
['debug|D|V' => "show full HTTP requests and responses"], |
|
17
|
|
|
|
|
|
|
['quiet|q' => "don't print PAIA response"], |
|
18
|
|
|
|
|
|
|
["username|u=s" => "username for login"], |
|
19
|
|
|
|
|
|
|
["password|p=s" => "password for login"], |
|
20
|
|
|
|
|
|
|
['access_token|token|t=s' => "explicit access_token"], |
|
21
|
|
|
|
|
|
|
["patron|o=s" => "explicit patron identifier"], |
|
22
|
|
|
|
|
|
|
["scope|e=s" => "comma-separated list of scopes for login"], |
|
23
|
|
|
|
|
|
|
["help|h|?" => "show help", { shortcircuit => 1 } ], |
|
24
|
|
|
|
|
|
|
["version" => "show client version", { shortcircuit => 1 } ]; |
|
25
|
|
|
|
|
|
|
} |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |
|
28
|
|
|
|
|
|
|
__END__ |