abonbot/modules/alias.pm

use Modern::Perl;
use utf8;

use Attribute::Handlers;

our %aliases;

sub Alias :ATTR(BEGIN)
{
  my ($package, $symbol, $referent, $attr, $data) = @_;
  $aliases{$data->[0]} = $symbol eq "ANON" ? async($referent) : $referent;
}

1;