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