Select Code to Download

# It's actually a lot more complex than this, but just
# pretend it's this simple...
...
sub HashRef () {   ### empty prototype
  return Moose::Meta::TypeConstraint->lookup('HashRef');
}

    isa => HashRef

package A;
has data => (is => 'ro');
package B;
has data => (is => 'rw');