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 )