use 5.014000;
use warnings;
-our $VERSION = '5999.000_015';
+our $VERSION = '5999.000_016';
use File::Temp qw/tempfile/;
use File::Slurp qw/read_file write_file/;
use Gruntmaster::App '-command';
use Gruntmaster::Data;
+use Gruntmaster::App::Command::Set;
+BEGIN { *PAGES = *Gruntmaster::App::Command::Set::PAGES }
+
sub usage_desc { '%c [-cjpu] edit id column' }
sub validate_args {
my $editor = $ENV{EDITOR} // 'editor';
system $editor, $file;
db->update($self->app->table, {$col => scalar read_file $file}, {id => $obj});
+ purge PAGES->{$self->app->table}.$_ for '', $obj;
}
1;
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2014-2015 by Marius Gavrilescu
+Copyright (C) 2014-2016 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.20.1 or,