深夜にバカやってないで会社でバカやりましょう、いつも通り。 自分がクビにならないのが常々不思議である。 parent.pm 中にはメソッドはimportが1個のみ、行数も少ない。これなら軽く読める。 package parent; use strict; use vars qw($VERSION); $VERSION = '0.221'; sub import { my $class = shift; my $inheritor = caller(0); if ( @_ and $_[0] eq '-norequire' ) { shift @_; } else { for ( my @filename = @_ ) { if ( $_ eq $inheritor ) { warn "Class '$inheritor' tried to inherit from itself\n"; }