Mojo::UserAgent为啥存在作用域问题

dugu072

无意在google groups看到的帖子，提到了mojo::useragent的作用域问题，十分惊讶，实验以下代码，发现delay的第二个匿名子过程的get，都没有正确执行！

1. use 5.10.0;
   
2. #!/usr/bin/env perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. use feature 'say';
   
8. 
   
9. use Mojolicious::Lite;
   
10. use Mojo::UserAgent;
    
11. use Mojo::IOLoop;
    
12. use Mojo::URL;
    
13. 
    
14. get '/test' => sub {
    
15.    my $self = shift;
    
16. 
    
17.    my @data;
    
18. 
    
19.    my $url = Mojo::URL->new('http://www.baidu.com/s');
    
20.    [color=Red]my $ua  = Mojo::UserAgent->new;[/color]
    
21.    my $result = [];
    
22.    Mojo::IOLoop->delay(
    
23. 
    
24.       sub {
    
25.          my $delay = shift;
    
26.          print "1st step!\n";
    
27.          $ua->get($url->clone->query({wd => 'mojo'}) => $delay->begin);
    
28.       },
    
29. 
    
30.       sub {
    
31.          my ($delay, @res) = @_;
    
32.          print "2nd step! with args: @{[ scalar @res ]}\n";
    
33.          foreach my $tx (@res) {
    
34.             if ($tx->success) {
    
35.                 my $url = $tx->req->url->to_string;
    
36.                 push @$result, "get $url success!\n";
    
37.             }
    
38.          }
    
39. 
    
40.          $ua->get($url->clone->query({wd => 'perl'}) => $delay->begin);
    
41.       },
    
42. 
    
43.       sub {
    
44.          my ($delay, @res) = @_;
    
45.          print "3rd step! with args: @{[ scalar @res ]}\n";
    
46.          foreach my $tx (@res) {
    
47.             if ($tx->success) {
    
48.                 my $url = $tx->req->url->to_string;
    
49.                 push @$result, "get $url success!\n";
    
50.             }
    
51.          }
    
52.          $self->render_text("all jobs done!\n@$result");
    
53.       }
    
54.    );
    
55. 
    
56. };
    
57. 
    
58. app->start;

复制代码

帖子也给出了解决方案，十分简单，将上面红色的代码，修改为：

1. state $ua  = Mojo::UserAgent->new;

复制代码

代码上看$ua，作为closure context的变量，下面所有的匿名子过程，都应该能偶正确访问。而且这些匿名子过程也没有去修改$ua，那么为什么第二个匿名子过程，不能正确访问my声明的$ua呢？

增加了mojo的debug开关，看了下，第二个匿名子过程，如果访问的是my $ua，则只有request发送，之后get的callback不会执行！由此证明，第二个匿名sub，还是能访问$ua的，那为啥callback被忽略了？更迷惑了……