File Coverage

blib/lib/App/PAIA/Command/session.pm
Criterion Covered Total %
statement 25 27 92.5
branch 7 10 70.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 37 42 88.1


line stmt bran cond sub pod time code
1             package App::PAIA::Command::session;
2 4     4   1459 use strict;
  4         6  
  4         97  
3 4     4   26 use v5.10;
  4         9  
  4         109  
4 4     4   12 use parent 'App::PAIA::Command';
  4         6  
  4         13  
5              
6             our $VERSION = '0.29';
7              
8 4     4   197 use App::PAIA::JSON;
  4         4  
  4         688  
9              
10             sub _execute {
11 3     3   6 my ($self, $opt, $args) = @_;
12              
13 3 100       18 if (defined $self->session->file ) {
14 2         5 my $data = $self->session->load;
15 2 100       9 say encode_json($data) if $self->app->global_options->verbose;
16 2         295 my $msg = $self->not_authentificated;
17 2 50       5 die "$msg.\n" if $msg;
18 2         8 say "session looks fine.";
19             } else {
20 1         18 die "no session file found.\n";
21             }
22              
23 2 50       28 if (!$self->auth) {
24 0         0 die "PAIA auth server URL not found\n";
25             } else {
26 2         6 $self->logger->('auth URL: '.$self->auth);
27             }
28              
29 2 50       24 if (!$self->core) {
30 0         0 die "PAIA core server URL not found\n";
31             } else {
32 2         5 $self->logger->('core URL: '.$self->core);
33             }
34              
35 2         12 return;
36             }
37              
38             1;
39             __END__