view release on metacpan or  search on metacpan

eg/stream.pl  view on Meta::CPAN

use AnyEvent::Plackup;

my $server = plackup;

print "Server started at $server/\n";

while (my $req = $server->recv) {
    $req->respond(sub {
        my $respond = shift;
        my $writer = $respond->([ 200, [ 'Content-Type' => 'text/plain' ] ]);
        my $w; $w = AE::timer 1, 1, sub {
            $writer->write(localtime . "\n");
            scalar $w;
        };
    });
}

lib/AnyEvent/Plackup.pm  view on Meta::CPAN

}

sub DESTROY {
    my $self = shift;
    local $@;
    delete $self->{twiggy}->{listen_guards};
}

sub shutdown {
    my $self = shift;
    my $w; $w = AE::timer 0, 0, sub {
        $self->{twiggy}->{exit_guard}->end;
        undef $w;
    };
    $self->{twiggy}->{exit_guard}->recv;
}

1;

__END__