File Coverage

blib/lib/PerlX/Generator/Runtime.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package PerlX::Generator::Runtime;
2              
3 1     1   3085 use strictures 2;
  1         7  
  1         54  
4 1     1   638 use PerlX::Generator::Object;
  1         3  
  1         27  
5 1     1   6 use Exporter qw(import);
  1         1  
  1         131  
6              
7             our @EXPORT = qw(generator yield __gen_resume __gen_suspend __gen_sent);
8              
9             sub generator (&) {
10 1     1 0 75 my ($code) = @_;
11 1         7 return PerlX::Generator::Object->new(code => $code);
12             }
13              
14 0     0 0 0 sub yield { die "Unrewrittten yield call - yield outside of generator?" }
15              
16 7     7   22 sub __gen_resume { $PerlX::Generator::Invocation::Current->_gen_resume }
17 6     6   32 sub __gen_suspend { $PerlX::Generator::Invocation::Current->_gen_suspend(@_) }
18 6     6   27 sub __gen_sent { $PerlX::Generator::Invocation::Current->_gen_sent }
19              
20             1;