use Class::Struct;
struct A => {
  b => '%',

##</code><code>##

$self->{ReferenceToA}->b($key)

##</code><code>##

p ($self->{ReferenceToA}->can('b'))
CODE(0xe91738)