AnyEvent-WebSocket-Client
view release on metacpan or search on metacpan
example/jobserver view on Meta::CPAN
my $self = shift;
get_job_hash($self, sub {
my $server = $self->param('server');
if(defined $self->stash->{jobs}->{$server})
{
$self->stash(server => $server);
$self->render('server');
}
else
{
$self->reply->not_found;
}
});
} => 'server';
sub get_old_events
{
my ($c, $cb) = @_;
my $redis = $c->redis;
my $id = $c->param('id');
example/jobserver view on Meta::CPAN
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
<head>
<title><%= title %></title>
<script src="http://code.jquery.com/jquery-latest.min.js"></script>
</head>
<body><%= content %></body>
</html>
@@ not_found.html.ep
Not found
( run in 4.167 seconds using v1.01-cache-2.11-cpan-4d4bc49f3ae )