Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: package Foo; isa Bar; why not?

by Kageneko (Scribe)
on Dec 22, 2003 at 18:51 UTC ( #316444=note: print w/replies, xml ) Need Help??

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;

It lets one do things like:

package A isa B; package D isa E,F;

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://316444]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2016-10-26 15:23 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (341 votes). Check out past polls.