use Class::HPLOO ;

class Foo extends Bar , Baz {

  vars ($VERSION , $GLOBAL_PUBLIC) ;
  
  $VERSION = '0.01' ;
  
  my $GLOBAL_PRIVATE ;

  sub Foo (%args) {
    $this->{X} = $args{x} ;
    $this->{Y} = $args{y} ;
  }
  
  sub x { $this->{X} }
  sub y { $this->{Y} }
  
  sub test_args ($x , $y , \%opts , \@list , $more ) {
    print ">> $x\n" ;
    print ">> $y\n" ;
    
    my @keys = map { $_ => 1 } (keys %opts , @list) ;
    
    print ">> $more\n" ;
  }
  
  sub old_style {
    my ( $x , $y ) = @_ ;
    print ">> $x , $y\n" ;
  }
  
  sub test_html_block {
    print <% html_foo>( $this->x , $this->y ) ;
  }

  <% html_foo($x , $y)
    <hr>
    X: $x , Y: $y
    <hr>
  %>

}