AK
Size: a a a
AK
VG
YK
bIlujDI' yIchegh()Qo'; yIHegh()!
It is better to die() than to return() in failure.
-- Klingon programming proverb.
МИ
YK
a
a
a
use warnings FATAL => 'all';
```не рекомендуется прямо в perldoc warnings:
NOTE: FATAL warnings should be used with care, particularly "FATAL =>
'all'".
a
SZ
a
SZ
a
SZ
a
IB
IB
a
a
use warnings FATAL => 'all';
use strict;
# my $a = undef + 42;
# Future doesn't provide stack safety
use Future qw();
sub promise {
my $n = shift;
return if $n <= 0;
return Future->done()
->then( sub {
$n -= 1;
print "Then. $n left...\n";
#return promise( $n );
# This trick doesn't help too
@_ = ( $n );
goto &promise;
} );
}
my $p = promise( 1000000 );
# We get through this even with `use warnings FATAL => 'all';` !!!
print "Here\n";
a