use Class::HPLOO ;#qw(dump) ;

  print "class null { sub n { 1 } }\n" ;
  
class Foo {

  sub test {
    print "test>>@_\n" ;
    print " sub fake { 2 } \n" ;
  }

}