1. # Bind the HOWs into the EXPORTHOW package under the package declarator
  2. # names.
  3. my module EXPORTHOW {
  4. nqp::bindkey($?PACKAGE.WHO, 'package', Perl6::Metamodel::PackageHOW);
  5. nqp::bindkey($?PACKAGE.WHO, 'module', Perl6::Metamodel::ModuleHOW);
  6. nqp::bindkey($?PACKAGE.WHO, 'generic', Perl6::Metamodel::GenericHOW);
  7. nqp::bindkey($?PACKAGE.WHO, 'class', Perl6::Metamodel::ClassHOW);
  8. nqp::bindkey($?PACKAGE.WHO, 'class-attr', Attribute);
  9. nqp::bindkey($?PACKAGE.WHO, 'role', Perl6::Metamodel::ParametricRoleHOW);
  10. nqp::bindkey($?PACKAGE.WHO, 'role-attr', Attribute);
  11. nqp::bindkey($?PACKAGE.WHO, 'role-group', Perl6::Metamodel::ParametricRoleGroupHOW);
  12. nqp::bindkey($?PACKAGE.WHO, 'grammar', Perl6::Metamodel::GrammarHOW);
  13. nqp::bindkey($?PACKAGE.WHO, 'grammar-attr', Attribute);
  14. nqp::bindkey($?PACKAGE.WHO, 'native', Perl6::Metamodel::NativeHOW);
  15. nqp::bindkey($?PACKAGE.WHO, 'subset', Perl6::Metamodel::SubsetHOW);
  16. nqp::bindkey($?PACKAGE.WHO, 'enum', Perl6::Metamodel::EnumHOW);
  17. nqp::bindkey($?PACKAGE.WHO, 'coercion', Perl6::Metamodel::CoercionHOW);
  18. nqp::bindkey($?PACKAGE.WHO, 'definite', Perl6::Metamodel::DefiniteHOW);
  19. }