File Coverage

blib/lib/RxPerl/Base.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 28 31 90.3


line stmt bran cond sub pod time code
1             package RxPerl::Base;
2              
3 4     4   1292 use strict;
  4         8  
  4         88  
4 4     4   16 use warnings;
  4         4  
  4         81  
5              
6 4     4   16 use Carp 'croak';
  4         6  
  4         166  
7 4     4   1535 use Module::Load 'load';
  4         3591  
  4         23  
8              
9             our $VERSION = "v6.27.1";
10              
11             # Abstract base class for RxPerl::AnyEvent, RxPerl::IOAsync and RxPerl::Mojo
12              
13             sub set_promise_class {
14 1     1 0 84 my ($class, $promise_class) = @_;
15              
16 1 50       4 @_ == 2 or croak 'missing $promise_class parameter';
17              
18 1 50       7 load $promise_class if length $promise_class;
19 4     4   364 no strict 'refs';
  4         7  
  4         212  
20 1         3958 ${ "${class}::promise_class" } = $promise_class;
  1         7  
21             }
22              
23             1;