package One;
@ISA = qw(Two);

package Two;
@ISA = qw(One);

use Carp;
croak "Let me out!";

[download]

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!";

    [download]

    (: ++MeowChow

            - tye (but my friends call me "Tye")
[reply]
[d/l]
      or just: 
      package Catch::22; @ISA = 'Catch::22';
use Carp; croak 'Let me out!';

      [download]
[reply]
[d/l]
      i think this one qualifies as perl poetry :)
[reply]
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.

[reply]

Back to Cool Uses for Perl