Well, the movie is coming up soon, right? We might as well have a little fun with it....
package Carp::Scooby;

use Carp;
use Exporter;
@ISA = qw(Carp);
@EXPORT = qw(ruhroh zoiks jinkies);

sub ruhroh {goto &croak};
sub zoiks {goto &carp};
sub jinkies {goto &confess};

1;

[download]

Replies are listed 'Best First'.
Re: Carp::Scooby
by japhy (Canon) on May 10, 2002 at 19:58 UTC
    I'd use aliases instead of goto()s. 
    package Carp::Scooby;

require Carp;
require Exporter;
@EXPORT = qw( ruhroh zoiks jinkies );

*ruhroh  = \&Carp::croak;
*zoiks   = \&Carp::carp;
*jinkies = \&Carp::confess;

1;

    [download]

    _____________________________________________________
    Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

[reply]
[d/l]
Re: Carp::Scooby
by stephen (Priest) on May 10, 2002 at 20:07 UTC
    If you're feeling REALLY bizarre, you could indulge in a little argument-munging... 
    sub ruhroh {
  @_ = map {
    my @words = split(/\s/);
    foreach my $word (@words) {
      $word =~ s/^([aeiou])/r$1/ and next;
      $word =~ s/^([AEIOU])/'R' . lc($1)/e and next;
      $word =~ s/^[a-z][^aeiou]?/r/ and next;
      $word =~ s/^[A-Z][^aeiou]?/R/;
    }
    join(' ', @words);
  } @_;
  push @_, ', Raggy!';
  goto &croak;
}

    [download]
    Then, if you say 
    ruhroh("And I'd have gotten away with it, too, if it weren't for you m
+eddling kids");

    [download]
    You'll get 
    Rand Ri'd rave rotten raway rith rit, roo, rif rit reren't ror rou red
+dling rids, Raggy! at test_ruhroh.pl line 5

    [download]

    stephen

    Update: A little testing made me change my scheme entirely...

[reply]
[d/l]
[select]

Back to Cool Uses for Perl