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   1595 use strict;
  4         11  
  4         111  
4 4     4   19 use warnings;
  4         6  
  4         97  
5              
6 4     4   18 use Carp 'croak';
  4         7  
  4         172  
7 4     4   2170 use Module::Load 'load';
  4         4880  
  4         38  
8              
9             our $VERSION = "v6.28.0";
10              
11             # Abstract base class for RxPerl::AnyEvent, RxPerl::IOAsync and RxPerl::Mojo
12              
13             sub set_promise_class {
14 1     1 0 113 my ($class, $promise_class) = @_;
15              
16 1 50       6 @_ == 2 or croak 'missing $promise_class parameter';
17              
18 1 50       20 load $promise_class if length $promise_class;
19 4     4   434 no strict 'refs';
  4         7  
  4         260  
20 1         5501 ${ "${class}::promise_class" } = $promise_class;
  1         7  
21             }
22              
23             1;