Parent Directory
| 
Revision Log
include local copy of Continuity::Widget
$ darcs show repo
Type: darcs
Format: darcs-1.0
Root: /rest/cvs/Continuity-Widget
Pristine: PlainPristine "_darcs/pristine"
Cache: thisrepo:/rest/cvs/Continuity-Widget
Default Remote: http://thelackthereof.org/projects/perl/Continuity-Widget
Num Patches: 29
| 1 | package Continuity::Coro::Moose; |
| 2 | |
| 3 | use Moose::Role; |
| 4 | use Coro::Generator; |
| 5 | |
| 6 | has 'cont' => (is => 'rw'); |
| 7 | has 'output' => (is => 'rw'); |
| 8 | has 'input' => (is => 'rw'); |
| 9 | |
| 10 | sub process { |
| 11 | my ($self, $input) = @_; |
| 12 | $self->input($input); |
| 13 | $self->{cont} ||= generator { while(1) { $self->main } }; |
| 14 | $self->{cont}->(); |
| 15 | return $self->output; |
| 16 | } |
| 17 | |
| 18 | sub next { |
| 19 | my ($self, $output) = @_; |
| 20 | $self->output($output); |
| 21 | yield(); |
| 22 | return $self->input; |
| 23 | } |
| 24 | |
| 25 | 1; |
| 26 |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |