From fab92c20d706c67f3f95dcf0a92caaf9533ddc22 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 8 May 2008 22:22:20 -0500
Subject: move more work into the command base class

---
 lib/App/Hiveminder/Command.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lib/App/Hiveminder/Command.pm')

diff --git a/lib/App/Hiveminder/Command.pm b/lib/App/Hiveminder/Command.pm
index a85f6d0..fd58ab7 100644
--- a/lib/App/Hiveminder/Command.pm
+++ b/lib/App/Hiveminder/Command.pm
@@ -10,5 +10,20 @@ has hm => (
     default => sub { Net::Hiveminder->new(use_config => 1) },
 );
 
+sub run {
+    my ($self, $opt, $args) = @_;
+
+    my $result = $self->command($args);
+
+    if (defined $result) {
+        chomp $result;
+        $result .= "\n" if length $result > 0;
+        print $result;
+    }
+    else {
+        die $self->usage->text;
+    }
+}
+
 __PACKAGE__->meta()->make_immutable();
 1;
-- 
cgit v1.2.3-54-g00ecf