Re: package Foo; isa Bar; why not?

in reply to package Foo; isa Bar; why not?

Here's a variation I came up with using Filter::Simple:

package Filter::ISA;

use Filter::Simple;

FILTER_ONLY code => sub {
  if ( /package\s+(.+?)\s+isa\s+(.+?);/g ) {
    my $name = $1;
    my $base = $2;
    if ( $name !~ /;/ ) {
      $base =~ s/,/ /go;
      s/package $name isa (.+);/package $name; use base qw( $base );/o
+;
    }
  }
};

1;
[download]

It lets one do things like:

package A isa B;
package D isa E,F;
[download]

I'm kinda tempted to post it to CPAN now, but I imagine there's a lot better stuff out there :)

In Section Meditations