File Coverage

blib/lib/MojoX/IOLoop/Future.pm
Criterion Covered Total %
statement 15 17 88.2
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 26 76.9


line stmt bran cond sub pod time code
1             package MojoX::IOLoop::Future;
2 1     1   18236 use strict;
  1         2  
  1         39  
3 1     1   4 use warnings;
  1         1  
  1         24  
4              
5 1     1   495 use Mojo::IOLoop;
  1         166315  
  1         5  
6 1     1   621 use Future;
  1         6291  
  1         32  
7              
8 1     1   8 use base qw( Future );
  1         1  
  1         119  
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             MojoX::IOLoop::Future - use L with L
23              
24             =head1 SYNOPSIS
25              
26             use MojoX::IOLoop::Future;
27             my $f = MojoX::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