FILTER_ONLY( all => \&filter_html_blocks , code => \&CLASS_HPLOO , all => \&dump_code ) ;

##</code><code>##

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

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

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

} 

##</code><code>##

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

  use strict qw(vars) ;
 
  sub new { 
    my $class = shift ;
    my $this = bless({} , $class) ;
    my $ret_this = $this->Foo(@_) if defined &Foo ;
    $this = $ret_this if ( UNIVERSAL::isa($ret_this,$class) ) ;
    $this = undef if ( $ret_this eq '0' ) ;
    return $this ;
  }


  sub test { 
    my $this = shift ;
    
    print "test>>@_\n" ;
    print " sub fake { 2 } \n" ;
  }


}