add 'braindump' command

1 files changed, 25 insertions, 0 deletions

diff --git a/lib/App/Hiveminder/Command/Braindump.pm b/lib/App/Hiveminder/Command/Braindump.pm
new file mode 100644
index 0000000..92786f3
--- /dev/null
+++ b/lib/App/Hiveminder/Command/Braindump.pm
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+package App::Hiveminder::Command::Braindump;
+use Moose;
+use App::Hiveminder::Utils qw/get_text_from_editor display_tasks/;
+extends 'App::Hiveminder::Command';
+
+=head2 NAME
+
+App::Hiveminder::Command::Braindump - Create several tasks at once
+
+=cut
+
+sub command_names { qw/braindump bd/ }
+
+sub command {
+    my ($self, $args) = @_;
+
+    my $text = get_text_from_editor;
+    return display_tasks($self->hm->braindump($text, returns => 'tasks',
+                                                     tokens  => [@$args]))
+        unless $text eq '';
+    return '';
+}
+
+1;