Help for this page
eval qq{ sub $_ ... shift->SUPER::$_ } }
eval qq{ sub $_ ... $self->SUPER::$_ (@_); } }