File Coverage

blib/lib/Thunderhorse/SSE.pm
Criterion Covered Total %
statement 17 26 65.3
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod 1 2 50.0
total 24 36 66.6


line stmt bran cond sub pod time code
1             package Thunderhorse::SSE;
2             $Thunderhorse::SSE::VERSION = '0.102';
3 21     21   351 use v5.40;
  21         85  
4 21     21   172 use Mooish::Base -standard;
  21         44  
  21         248  
5              
6 21     21   346990 use Future::AsyncAwait;
  21         66  
  21         218  
7 21     21   1553 use Gears::X::Thunderhorse;
  21         337  
  21         6465  
8              
9             extends 'PAGI::SSE';
10             with 'Thunderhorse::Message';
11              
12 4         11 sub FOREIGNBUILDARGS ($class, %args)
13 4     4 0 3041 {
  4         11  
  4         8  
14             Gears::X::Thunderhorse->raise('no context for sse')
15 4 50       21 unless $args{context};
16              
17 4         45 return $args{context}->pagi->@*;
18             }
19              
20 0           sub update ($self, $scope, $receive, $send)
  0            
  0            
21 0     0 1   {
  0            
  0            
22 0           $self->{scope} = $scope;
23 0           $self->{receive} = $receive;
24 0           $self->{send} = $send;
25             }
26              
27             __END__