File Coverage

blib/lib/Ukigumo/Client/Executor/Callback.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1 4     4   2778 use strict;
  4         7  
  4         146  
2 4     4   19 use warnings;
  4         8  
  4         97  
3 4     4   18 use utf8;
  4         7  
  4         23  
4              
5             package Ukigumo::Client::Executor::Callback;
6 4     4   176 use Mouse;
  4         7  
  4         24  
7              
8             has run_cb => (
9             is => 'ro',
10             isa => 'CodeRef',
11             required => 1,
12             );
13              
14             sub run {
15 0     0 0   my $self = shift;
16 0           $self->run_cb->(@_);
17             }
18              
19 4     4   1423 no Mouse;__PACKAGE__->meta->make_immutable;
  4         10  
  4         21