package Vending::Command::Service::Show::Inventory;
use strict;
use warnings;
use Vending;
class Vending::Command::Service::Show::Inventory {
is => [ 'UR::Object::Command::List', 'Vending::Command::Service'],
has => [
subject_class_name => { value => 'Vending::Merchandise' },
show => { value => 'id,location_name,name,insert_date' },
filter => { is_calculated => 1 },
bare_args => {
is_optional => 1,
is_many => 1,
shell_args_position => 1
}
],
};
sub filter {
my $self = shift;
my $slot_names = [$self->bare_args];
#$DB::single=1;
my $filter = 'machine_id='.$self->machine_id;
if (@$slot_names == 1) {
$filter = 'slot_name='.$slot_names->[0];
} elsif (@$slot_names) {
$filter = 'slot_name=:'.join('/',@$slot_names);
}
return $filter;
}
sub execute {
#$DB::single = 1;
shift->SUPER::_execute_body(@_)
}
1;