http://www.perlmonks.org?node_id=844704

rir has asked for the wisdom of the Perl Monks concerning the following question:

update: corrected misspelling of supersede to avoid propagating the error.

I can't find the syntax to make supercede supersede work. 

sub asub ( $ace, $deuce?, $trey? ) {
    say "$ace $deuce $trey";
}

use Test;

supersede sub asub( $ace, $deuce?, $trey? ) { # XXX
    die "asub";
}

my $derr;

try {
    asub( 1, 2, 3);
    CATCH { $derr = $!; }
}

ok( $derr eq "asub", "asub died" );

[download]
Be well,
rir

Back to Seekers of Perl Wisdom