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   1502 use strict;
  4         9  
  4         108  
4 4     4   19 use warnings;
  4         6  
  4         95  
5              
6 4     4   20 use Carp 'croak';
  4         11  
  4         184  
7 4     4   1933 use Module::Load 'load';
  4         4493  
  4         33  
8              
9             our $VERSION = "v6.27.0";
10              
11             # Abstract base class for RxPerl::AnyEvent, RxPerl::IOAsync and RxPerl::Mojo
12              
13             sub set_promise_class {
14 1     1 0 96 my ($class, $promise_class) = @_;
15              
16 1 50       7 @_ == 2 or croak 'missing $promise_class parameter';
17              
18 1 50       9 load $promise_class if length $promise_class;
19 4     4   431 no strict 'refs';
  4         8  
  4         255  
20 1         4850 ${ "${class}::promise_class" } = $promise_class;
  1         8  
21             }
22              
23             1;