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;