—package
App::PAIA::Command::request;
use
strict;
use
v5.10;
our
$VERSION
=
'0.30'
;
sub
usage_desc {
"%c request %o URI [item=URI] [edition=URI] ..."
# storage not supported yet
}
sub
execute {
my
(
$self
,
$opt
,
$args
) =
@_
;
my
@docs
=
$self
->uri_list(
@$args
);
$self
->usage_error(
"Missing document URIs to request"
)
unless
@docs
;
$self
->core_request(
'POST'
,
'request'
, {
doc
=> \
@docs
} );
}
1;
__END__
=head1 NAME
App::PAIA::Command::request - request one or more items for reservation or delivery
=cut