.

djinn.pl

@@ -226,7 +226,7 @@ sub do_command
   $c =~ s|^/||;
   $c =~ s/\@MolDjinnBot$//;
 
-  my $sub = reference("command_$c") || %aliases{$c};
+  my $sub = reference("command_$c") || $aliases{$c};
 
   unless ($sub)
   {

modules/alias.pm

@@ -5,10 +5,11 @@ use Attribute::Handlers;
 
 our %aliases;
 
-sub Alias :ATTR 
+sub Alias :ATTR(BEGIN)
 {
   my ($package, $symbol, $referent, $attr, $data) = @_;
-  $aliases{$data->[0]} = $symbol eq "ANON" ? async $referent : $referent;
+  say Dumper $symbol,$referent;
+  $aliases{$data->[0]} = $symbol eq "ANON" ? async($referent) : $referent;
 }
 
 1;