class Foo {
    
    ## Object initializer:
    sub Foo (%args) {
      $this->{bar} = $arg{baz} ;
    }

    ## a Perl function:
    sub bar($x , $y) {
      $this->add($x , $y) ;
    }
    
    ## a C function that will be turned into XS:
    sub[C] int add( int x , int y ) {
      int res = x + y ;
      return res ;
    }
    
  }