{
  package Rubber;

  @ISA     = qw( Thingy );
  $PATTERN = q( ... );

  sub new {
    local $Thingy::PATTERN = $PATTERN;
    $_[0]->SUPER::new(@_[1 .. $#_]);
  }
}