line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Mojo::IOLoop::Future; |
2
|
1
|
|
|
1
|
|
66807
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
89
|
|
3
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
45
|
|
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
2097
|
use Mojo::IOLoop; |
|
1
|
|
|
|
|
350272
|
|
|
1
|
|
|
|
|
10
|
|
6
|
1
|
|
|
1
|
|
1188
|
use Future; |
|
1
|
|
|
|
|
47989
|
|
|
1
|
|
|
|
|
118
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
187
|
use base qw( Future ); |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
282
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub await { |
11
|
0
|
|
|
0
|
0
|
|
my $self = shift; |
12
|
|
|
|
|
|
|
|
13
|
0
|
0
|
|
|
|
|
Mojo::IOLoop->start unless Mojo::IOLoop->is_running; |
14
|
|
|
|
|
|
|
} |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
#################### main pod documentation begin ################### |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 NAME |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
Mojo::IOLoop::Future - use L with L |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
=head1 SYNOPSIS |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
use Mojo::IOLoop::Future; |
27
|
|
|
|
|
|
|
my $f = Mojo::IOLoop::Future->new; |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
=head1 DESCRIPTION |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
Creates Futures that know how to await with Mojo::IOLoop. This permits these |
32
|
|
|
|
|
|
|
futures to block until the future is ready |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
=head1 CONTRIBUTE |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
The source code and issues are on https://github.com/pplu/mojo-ioloop-future |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 AUTHOR |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
Jose Luis Martinez |
41
|
|
|
|
|
|
|
CPAN ID: JLMARTIN |
42
|
|
|
|
|
|
|
CAPSiDE |
43
|
|
|
|
|
|
|
jlmartinez@capside.com |
44
|
|
|
|
|
|
|
http://www.pplusdomain.net |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
=head1 COPYRIGHT |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
Copyright (c) 2015 by Jose Luis Martinez Torres |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
This program is free software; you can redistribute |
51
|
|
|
|
|
|
|
it and/or modify it under the same terms as Perl itself. |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
The full text of the license can be found in the |
54
|
|
|
|
|
|
|
LICENSE file included with this module. |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
=cut |