package Annotations;
 
my %Annotations;
 
sub Annotate {
            my ($sub, %annotations) = @_;
            bless $sub, Annotations;
            my $h = $Annotations{$sub} ||= {};
            @$h{keys %annotations} = values %annotations;
}
 
sub annotation {
            my ($this, $name) = @_;
            $Annotations{$this}{$name}
}