File Coverage

blib/lib/App/PAIA/Command/logout.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod			n/a
total	16	32	50.0

package App::PAIA::Command::logout;
use strict;
use v5.10;
use parent 'App::PAIA::Command';

use App::PAIA::JSON;

sub _execute {
    my ($self, $opt, $args) = @_;

    if ($self->expired) {
        $self->logger("session expired, skip logout"); # TODO: force on request
    } else {
        my $auth = $self->auth // $self->usage_error("missing PAIA auth URL");
        my $response = $self->request(
            "POST", "$auth/logout", { patron => $self->patron }
        );
        print encode_json($response);
    }

    $self->session->purge && $self->logger->("deleted session file");

    return;
}

1;
__END__