package Dog;
use Moose;
has 'breed' => ( is => 'ro',isa=>'String');
has 'color' => ( is => 'rw', isa=>'String');

sub BUILD { 
     my $self =shift;
     my $class = "Dog::" . $self->breed();

     $class->meta->rebless_instance($self);

} 
1;