package MyA;

use warnings;
use strict;

sub new { bless { a => 'A' }, shift }

sub a { shift->{a} }

__PACKAGE__