The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package SkipUnderscoreSubClass;
use warnings;
use strict;
use base 'SkipUnderscoreBaseClass';

sub in_sub_class {
  'here I am';
}

1;