Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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 :)

Comment on Re: package Foo; isa Bar; why not?
Select or Download Code

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 surveying the Monastery: (7)
As of 2015-11-27 17:54 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls