package Hubba;
use Moose;

has hubba => ( is => "rw", isa => "Int", builder => "hubba_builder1" );

sub hubba_builder1 {
 return 1;
}

sub abba {
 my($this)=@_;

 return $this->hubba + 1;
}

##</code><code>##

package Bubba;
use Moose;

extends "Hubba";

has hubba => ( is => "rw", isa => "Str",  builder => "hubba_builder2" );

sub hubba_builder2 {
 my($this)=@_;

 return "bubba";
}

##</code><code>##

Hubba->new->abba;