gistfile1.txt

use Test; 
plan 4;

class TestClass {
    method one {}
    method two {}
    method three {}
    method four {}
}

class TestHOW is Metamodel::ClassHOW {
  method add_method(Mu $obj, $name, $code)
  { callsame; }
}
my package EXPORTHOW {}
  EXPORTHOW::<class> = TestHOW;

my $tc = TestClass.new;

ok $tc.can('one');
ok $tc.can('two');
ok $tc.can('three');
ok $tc.can('four')