Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

51 lines (39 sloc) 0.821 kB
#!/usr/bin/env perl
use warnings;
use strict;
use lib qw(../lib);
# Exercise Reflex::POE::Postback, for passing postbacks into POE space.
{
package App;
use Moose;
extends 'Reflex::Base';
use Reflex::POE::Postback;
use PoCoPostback;
has component => (
isa => 'Object|Undef',
is => 'rw',
);
sub BUILD {
my $self = shift;
$self->component( PoCoPostback->new() );
$self->component->request(
Reflex::POE::Postback->new(
$self, "on_component_result", { cookie => 123 }
),
);
}
sub on_component_result {
my ($self, $args) = @_;
print(
"Got component response:\n",
" postback context: $args->{context}{cookie}\n",
" call-back result: $args->{response}[0]\n",
);
# Ok, we're done.
$self->component(undef);
}
}
# Main.
my $app = App->new();
$app->run_all();
exit;
Jump to Line
Something went wrong with that request. Please try again.