package MyB;

use warnings;
use strict;

sub new { bless { b => 'B' }, shift }

sub b { shift->{b} }

__PACKAGE__