Replace gruntmaster-* scripts with App::Cmd-based gm

[gruntmaster-data.git] / lib / Gruntmaster / App / Command / Rm.pm

diff --git a/lib/Gruntmaster/App/Command/Rm.pm b/lib/Gruntmaster/App/Command/Rm.pm
new file mode 100644 (file)
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__