Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

How To Keep Carp Busy

by MeowChow (Vicar)
on Jan 20, 2001 at 01:47 UTC ( #53110=CUFP: print w/replies, xml ) Need Help??

package One; @ISA = qw(Two); package Two; @ISA = qw(One); use Carp; croak "Let me out!";

Replies are listed 'Best First'.
Re: How To Keep Carp Busy
by tye (Sage) on Jan 20, 2001 at 01:57 UTC
    package Catch; @ISA = qw(TwentyTwo); package TwentyTwo; @ISA = qw(Catch); use Carp; croak "I want out!";

    (: ++MeowChow

            - tye (but my friends call me "Tye")
      or just:
      package Catch::22; @ISA = 'Catch::22'; use Carp; croak 'Let me out!';
      i think this one qualifies as perl poetry :)
Re (tilly) 1: How To Keep Carp Busy
by tilly (Archbishop) on Jan 20, 2001 at 02:02 UTC
    Fixed in the current development release. :-)

    I still need to send in some more cleanup though. And build a test-suite. :-(

    Anyways this is an example of what you have to watch out for with recursion.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://53110]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2021-09-17 10:03 GMT
Find Nodes?
    Voting Booth?

    No recent polls found