X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FApp%2FCommand%2FGet.pm;fp=lib%2FGruntmaster%2FApp%2FCommand%2FGet.pm;h=ab547adedd97fbf84959dc77d0907b415f9f1b18;hb=92f74061ec24c7d45c9312ae54280356530f6c8c;hp=0000000000000000000000000000000000000000;hpb=341fb89345d050a28105184a3fba1be1359e7bd2;p=gruntmaster-data.git

diff --git a/lib/Gruntmaster/App/Command/Get.pm b/lib/Gruntmaster/App/Command/Get.pm
new file mode 100644
index 0000000..ab547ad
--- /dev/null
+++ b/lib/Gruntmaster/App/Command/Get.pm
@@ -0,0 +1,27 @@
+package Gruntmaster::App::Command::Get;
+
+use 5.014000;
+use warnings;
+
+our $VERSION = '5999.000_004';
+
+use Gruntmaster::App '-command';
+use Gruntmaster::Data;
+
+sub usage_desc { '%c [-cjpu] get id column' }
+
+sub validate_args {
+	my ($self, $opt, $args) = @_;
+	my @args = @$args;
+	$self->usage_error('No table selected') unless $self->app->table;
+	$self->usage_error('Wrong number of arguments') if @args != 2;
+}
+
+sub execute {
+	my ($self, $opt, $args) = @_;
+	my ($obj, $col) = @$args;
+	say db->select($self->app->table, $col, {id => $obj})->flat
+}
+
+1;
+__END__