lots of modularization done, needs testing and is unstable

1 files changed, 12 insertions, 7 deletions

diff --git a/modules/command.pl b/modules/command.pl
index fe299fd..80cda19 100644
--- a/modules/command.pl
+++ b/modules/command.pl
@@ -1,9 +1,18 @@
+package ASM::Commander;
 use warnings;
 use strict;
 
-sub do_command
+sub new
 {
-  my ($conn, $event) = @_;
+  my $module = shift;
+  my $self = {};
+  bless($self);
+  return $self;
+}
+
+sub command
+{
+  my ($self, $conn, $event) = @_;
   my $args = $event->{args}->[0];
   my $from = $event->{from};
   my $cmd = $args;
@@ -35,8 +44,4 @@ sub do_command
   }
 }
 
-sub Command::killsub {
-  undef &do_command;
-}
-
-return 1;
+1;