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   1881 use strict;
  4         9  
  4         196  
4 4     4   40 use warnings;
  4         13  
  4         212  
5              
6 4     4   36 use Carp 'croak';
  4         6  
  4         246  
7 4     4   2093 use Module::Load 'load';
  4         6399  
  4         26  
8              
9             our $VERSION = "v6.29.8";
10              
11             # Abstract base class for RxPerl::AnyEvent, RxPerl::IOAsync and RxPerl::Mojo
12              
13             sub set_promise_class {
14 1     1 0 376203 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   557 no strict 'refs';
  4         9  
  4         345  
20 1         112 ${ "${class}::promise_class" } = $promise_class;
  1         76  
21             }
22              
23             1;