| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | package App::Multigit::Loop; | 
| 2 |  |  |  |  |  |  |  | 
| 3 | 1 |  |  | 1 |  | 5 | use strict; | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 25 |  | 
| 4 | 1 |  |  | 1 |  | 5 | use warnings; | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 24 |  | 
| 5 | 1 |  |  | 1 |  | 1137 | use IO::Async::Loop; | 
|  | 1 |  |  |  |  | 52289 |  | 
|  | 1 |  |  |  |  | 14 |  | 
| 6 | 1 |  |  | 1 |  | 56 | use 5.014; | 
|  | 1 |  |  |  |  | 4 |  | 
| 7 |  |  |  |  |  |  |  | 
| 8 |  |  |  |  |  |  | our $VERSION = '0.16'; | 
| 9 |  |  |  |  |  |  |  | 
| 10 | 1 |  |  | 1 |  | 5 | use base qw(Exporter); | 
|  | 1 |  |  |  |  | 3 |  | 
|  | 1 |  |  |  |  | 146 |  | 
| 11 |  |  |  |  |  |  |  | 
| 12 |  |  |  |  |  |  | our @EXPORT_OK = qw(loop); | 
| 13 |  |  |  |  |  |  |  | 
| 14 |  |  |  |  |  |  | =head1 NAME | 
| 15 |  |  |  |  |  |  |  | 
| 16 |  |  |  |  |  |  | App::Multigit::Loop - Holds the loop for App::Multigit | 
| 17 |  |  |  |  |  |  |  | 
| 18 |  |  |  |  |  |  | =head1 DESCRIPTION | 
| 19 |  |  |  |  |  |  |  | 
| 20 |  |  |  |  |  |  | This is here so App::Multigit and App::Multigit::Repo don't have to rely on each | 
| 21 |  |  |  |  |  |  | other. | 
| 22 |  |  |  |  |  |  |  | 
| 23 |  |  |  |  |  |  | =head1 FUNCTIONS | 
| 24 |  |  |  |  |  |  |  | 
| 25 |  |  |  |  |  |  | =head2 loop | 
| 26 |  |  |  |  |  |  |  | 
| 27 |  |  |  |  |  |  | Returns the same IO::Async::Loop every time it's called in the same process tree. | 
| 28 |  |  |  |  |  |  |  | 
| 29 |  |  |  |  |  |  | Exported by request. | 
| 30 |  |  |  |  |  |  |  | 
| 31 |  |  |  |  |  |  | =cut | 
| 32 |  |  |  |  |  |  |  | 
| 33 |  |  |  |  |  |  | sub loop { | 
| 34 | 0 |  |  | 0 | 1 |  | state $loop = IO::Async::Loop->new; | 
| 35 | 0 |  |  |  |  |  | $loop; | 
| 36 |  |  |  |  |  |  | } | 
| 37 |  |  |  |  |  |  |  | 
| 38 |  |  |  |  |  |  | 1; | 
| 39 |  |  |  |  |  |  |  | 
| 40 |  |  |  |  |  |  | __END__ |