package Banana;

use fields qw( peel color );
    .
    .
    .

package Vehicle::MotorHome;

use fields qw( wheels color );
    .
    .
    .

package Banana::MotorHome;

use base qw( Banana Vehicle::MotorHome );

my Banana::MotorHome $x = Banana::MotorHome->new;

$x->{color} = "yellow";

Question: Which 'color' gets set?