gistfile1.txt

[Thu Feb  2 12:33:40 2012] [debug] Dispatching "MeeTV::Web5::Films->list".
woot:2 at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 54.
FLAIL? at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 59.
woot:3 at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 54.
dude:3 at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 61.
FLAIL? at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 59.
dude:2 at /Users/marcus/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/Mojolicious/Plugin/Parallol.pm line 61.


      if (ref $callback && ref $callback eq 'CODE') {
        weaken($self) if $opts{weaken} // 1;
      } else {
        my $name = $callback;
        $callback = sub { $self->stash($name => pop) }
      }

      $self->render_later;
      $self->{paralloling}++;
      warn "woot:".$self->{paralloling};
      $self->{paralloled} = 1;


      sub {
        warn "FLAIL?";
        eval { $callback->(@_); 1 } or $self->render_exception($@);
        warn "dude:".$self->{paralloling};
        $self->on_parallol->($self) if --$self->{paralloling} == 0;
      }
    }
  );
}