13 lines
263 B
Perl
13 lines
263 B
Perl
#!perl
|
|
|
|
HELP "<amount>" => "Withdraw or enter price manually";
|
|
|
|
sub command {
|
|
my ($self, $cart, $command) = @_;
|
|
|
|
my $amount = parse_amount($command) or return NEXT;
|
|
|
|
$cart->add(undef, -$amount, "Withdrawal or unlisted product");
|
|
|
|
return ACCEPT;
|
|
}
|