Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2014-08-31 04:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (294 votes), past polls