YOU ARE IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE
perl -d professional_adventure_2024.pl
Sub::Defer::CODE(0x8ab8938)(/epsi/perlbrew/perls/perl-5.16.3/lib/perl5/Sub/Defer.pm:55):
55: $undeferred ||= undefer_sub($deferred_info->[3]);
auto(-1) DB<2> v
52: my $undeferred;
53: my $deferred_info;
54 my $deferred = sub {
55==> $undeferred ||= undefer_sub($deferred_info->[3]);
56: goto &$undeferred;
57: };
58: $deferred_info = [ $target, $maker, \$undeferred, $deferred ];
59: weaken($deferred_info->[3]);
60: weaken($DEFERRED{$deferred} = $deferred_info);
61: _install_coderef($target => $deferred) if defined $target;
DB<2> n
Walkthrough:
- 7n
- 3s
Top comments (0)