Re: Just before subroutine returns

Try the End module. Here’s a trivial example:

use strict;
use warnings;
use End;

foo(4);
foo(6);

sub foo
{
    my ($n) = @_;
    my  $x  = end { print "\$n = >$n<\n" };
    return 1 if $n < 5;
    $n *= 52;
    return $n;
}
[download]

Output:

16:31 >perl 1810_SoPW.pl
$n = >4<
$n = >312<

16:31 >
[download]

Note that the assignment to $x is needed here, because of the way End works, even though the value of $x isn’t used.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Just before subroutine returns Select or Download Code

Replies are listed 'Best First'.
Re^2: Just before subroutine returns by solegaonkar (Beadle) on Aug 29, 2017 at 06:58 UTC
Yes! That worked.. Thanks for your help!	[reply]
Re^3: Just before subroutine returns by RonW (Parson) on Aug 29, 2017 at 23:39 UTC
If you need to know which `return` returned, you might be able to wrap `return` using Keyword::Declare or Filter::Simple. Be warned: These are very powerful, therefore dangerous to use.	[reply] [d/l] [select]
Re^4: Just before subroutine returns by LanX (Sage) on Aug 30, 2017 at 00:12 UTC
I'd recommend Keyword::Simple , but for completeness: a sub can be left without return. Possibilities include: implicit return at body's end goto label in caller chain goto &sub die exception Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^5: Just before subroutine returns by RonW (Parson) on Aug 30, 2017 at 18:58 UTC
Re^2: Just before subroutine returns by karlgoethebier (Abbot) on Aug 29, 2017 at 18:21 UTC
Even the command line to install it is pure fun: `karls-mac-mini:monks karl$ cpanm End --> Working on End` [download] Thanks and regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l] [select]


Keep It Simple, Stupid
	PerlMonks