BEGIN {
  foreach my $method (keys %METHODS) {
    push @EXPORT, $method;
    no strict 'refs';
    *$methods = sub {
      return $METHODS{ $method };
    };
  }
}