File Coverage

blib/lib/Acme/Coro/Suke.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Acme::Coro::Suke;
2 1     1   8 use strict;
  1         1  
  1         32  
3 1     1   5 use warnings;
  1         1  
  1         35  
4 1     1   863 use utf8;
  1         9  
  1         5  
5             our $VERSION = '0.01';
6              
7 1     1   446 use Coro;
  0            
  0            
8             use Encode;
9             use base qw/Exporter/;
10             our @EXPORT = qw/benzo/;
11              
12             our $SERIF = Encode::encode('utf-8', "うわぁ…べんぞうさんの中…すごくあったかいナリぃ… \n");
13              
14             sub benzo(&) { ##
15             my $sub = shift;
16             async {
17             Coro::on_enter {
18             print $SERIF;
19             };
20             $sub->();
21             };
22             }
23              
24              
25             1;
26             __END__