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

diff --git a/lib/Gruntmaster/App/Command/Rm.pm b/lib/Gruntmaster/App/Command/Rm.pm
new file mode 100644
index 0000000..25dc450
--- /dev/null
+++ b/lib/Gruntmaster/App/Command/Rm.pm
@@ -0,0 +1,27 @@
+package Gruntmaster::App::Command::Rm;
+
+use 5.014000;
+use warnings;
+
+our $VERSION = '5999.000_004';
+
+use Gruntmaster::App '-command';
+use Gruntmaster::Data;
+
+sub usage_desc { '%c [-cjpu] rm id' }
+
+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 != 1;
+}
+
+sub execute {
+	my ($self, $opt, $args) = @_;
+	my ($obj) = @$args;
+	say 'Rows deleted: ', db->delete($self->app->table, {id => $obj})->rows
+}
+
+1;
+__END__