sub add_method {
    my $class = shift;
    my $name = shift;
    my $code = shift;
    no strict 'refs'; # because you should have strict on
    *{$class . '::' . $name} = $code;
}