File Coverage

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

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	1	100.0
total	13	22	59.0

package App::PAIA::Command::cancel;
use strict;
use v5.10;

our $VERSION = '0.30';

use parent 'App::PAIA::Command';

sub usage_desc {
    "%c cancel %o URI [item=URI] [edition=URI] ..."
}

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

    my @docs = $self->uri_list(@$args);

    $self->usage_error("Missing document URIs to cancel")
        unless @docs;

    $self->core_request( 'POST', 'cancel', { doc => \@docs } );
}

1;
__END__