package XX; use constant timeout => 42; 1; package YY; use parent -norequire, 'XX'; 1; package main; use strict; use warnings; my $y = bless +{}, "YY"; print $y->timeout; # fine! 1;