File: | lib/ZMQx/Class/AnyEvent.pm |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | time | code |
---|---|---|---|---|---|---|
1 | package ZMQx::Class::AnyEvent; | |||||
2 | 2 2 2 | 386 2 40 | use strict; | |||
3 | 2 2 2 | 5 1 35 | use warnings; | |||
4 | 2 2 2 | 29 3 38 | use 5.010; | |||
5 | ||||||
6 | # ABSTRACT: AnyEvent helpers | |||||
7 | ||||||
8 | 2 2 2 | 1006 5002 88 | use AnyEvent; | |||
9 | ||||||
10 | sub watcher { | |||||
11 | 4 | 8071 | my ($class, $socket, $callback) = @_; | |||
12 | 4 | 51 | my $fh = $socket->get_fh; | |||
13 | 4 | 302 | my $watcher = AnyEvent->io ( | |||
14 | fh => $fh, | |||||
15 | poll => "r", | |||||
16 | cb => $callback | |||||
17 | ); | |||||
18 | 4 | 114 | return $watcher; | |||
19 | } | |||||
20 | ||||||
21 | 1; |