File Coverage

blib/lib/PerlX/Generator/Invocation.pm
Criterion Covered Total %
statement 39 44 88.6
branch 6 10 60.0
condition 0 3 0.0
subroutine 10 11 90.9
pod 0 2 0.0
total 55 70 78.5


line stmt bran cond sub pod time code
1             package PerlX::Generator::Invocation;
2              
3 1     1   6 use strictures 2;
  1         9  
  1         38  
4 1     1   199 use Carp 'croak';
  1         4  
  1         51  
5 1     1   4 use Moo;
  1         2  
  1         5  
6              
7             has _resume_with => (is => 'rw');
8              
9             has code => (is => 'ro', required => 1);
10             has lexical_context => (is => 'ro', required => 1);
11             has start_args => (is => 'ro', required => 1);
12             has done => (is => 'rwp');
13             has return_value => (is => 'rwp');
14              
15             sub next {
16 7     7 0 2296 my ($self, $value) = @_;
17              
18 7 50       17 return undef if $self->done;
19              
20 7         10 local our $Current = $self;
21 7         10 local our $Sent_Value = $value;
22 7         8 local our $Yielded_Value;
23              
24             # should set done here on exception
25 7 100       19 $self->_set_return_value([ $self->code->($self->_resume_with ? () : @{$self->start_args}) ]);
  1         5  
26              
27 1         7 $self->_resume_with(undef);
28 1         4 $self->_set_done(1);
29 1         2 return undef;
30              
31 6         12 __GEN_YIELD:
32             return $Yielded_Value;
33             }
34              
35             sub error {
36 0     0 0 0 my ($self, $error) = @_;
37              
38 0 0 0     0 die "Whut" if $self->done or not $self->_resume_with;
39 0         0 local our $Sent_Error = $error;
40 0         0 $self->next;
41             }
42              
43             sub _gen_suspend {
44 6     6   11 my ($self, $label, $yielded) = @_;
45 6         9 our $Yielded_Value = $yielded;
46 6         18 $self->_resume_with({
47             label => $label,
48             pad_values => $self->lexical_context->get_pad_values,
49             });
50 1     1   633 no warnings 'exiting'; goto __GEN_YIELD;
  1         2  
  1         81  
  6         38  
51             }
52              
53             sub _gen_resume {
54 7     7   9 my ($self) = @_;
55 7 100       18 return unless my $state = $self->_resume_with;
56 6         16 $self->lexical_context->set_pad_values($state->{pad_values});
57 1     1   6 no warnings 'exiting'; no warnings 'deprecated'; goto $state->{label};
  1     1   1  
  1         31  
  1         5  
  1         1  
  1         88  
  6         27  
58             }
59              
60             sub _gen_sent {
61 6 50   6   10 if (our $Sent_Error) { croak $Sent_Error }
  0         0  
62 6         12 our $Sent_Value
63             }
64              
65             1;