#!/usr/bin/perl

use Command::V2;
use strict;
use warnings;

package CmdTest::C2;
use CmdTest::Stuff;

class CmdTest::Thing {
    has => [ name => { is => 'Text' } ]
};

CmdTest::Thing->create(id => 111, name => 'one');
CmdTest::Thing->create(id => 222, name => 'two');
CmdTest::Thing->create(id => 333, name => 'three');

class CmdTest::C2 {
    is => 'Command::V2',
    has => [
        thing => { is => 'CmdTest::Thing', id_by => 'thing_id' },
    ],
    doc => "test command 2"
};

sub execute {
    my $self = shift;
    print "running $self with args: " . Data::Dumper::Dumper($self) . "\n";
    return 1;
}

if ($0 eq __FILE__) {
    exit __PACKAGE__->_cmdline_run(@ARGV)
}

sub help_detail {
    return "HELP DETAIL";
}


1;