Tatsuhiko Miyagawa > Tatsumaki-0.1000 > Tatsumaki

Download:
Tatsumaki-0.1000.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  2
View/Report Bugs
Module Version: 0.1000   Source   Latest Release: Tatsumaki-0.101301

NAME ^

Tatsumaki - Non-blocking Web server and framework based on AnyEvent

SYNOPSIS ^

  use Tatsumaki::Error;
  use Tatsumaki::Application;
  use Tatsumaki::HTTPClient;
  use Tatsumaki::Server;

  package MainHandler;
  use base qw(Tatsumaki::Handler);

  sub get {
      my $self = shift;
      $self->write("Hello World");
  }

  package FeedHandler;
  use base qw(Tatsumaki::Handler);
  __PACKAGE__->asynchronous(1);

  use JSON;

  sub get {
      my($self, $query) = @_;
      my $client = Tatsumaki::HTTPClient->new;
      $client->get("http://friendfeed-api.com/v2/feed/$query", sub { $self->on_response(@_) });
  }

  sub on_response {
      my($self, $res) = @_;
      if ($res->is_error) {
          Tatsumaki::Error::HTTP->throw(500);
      }
      my $json = JSON::decode_json($res->content);
      $self->write("Fetched " . scalar(@{$json->{entries}}) . " entries from API");
      $self->finish;
  }

  package StreamWriter;
  use base qw(Tatsumaki::Handler);
  __PACKAGE__->asynchronous(1);

  use AnyEvent;

  sub get {
      my $self = shift;
      $self->response->content_type('text/plain');

      my $try = 0;
      my $t; $t = AE::timer 0, 0.1, sub {
          $self->stream_write("Current UNIX time is " . time . "\n");
          if ($try++ >= 10) {
              undef $t;
              $self->finish;
          }
      };
  }

  package main;

  if (__FILE__ eq $0) {
      exec 'plackup', '-s', 'AnyEvent', '-a', $0;
  } else {
      my $app = Tatsumaki::Application->new([
          '/stream' => 'StreamWriter',
          '/feed/(\w+)' => 'FeedHandler',
          '/' => 'MainHandler',
      ]);
      return $app;
  }

WARNINGS ^

This is considered as alpha quality software. Most of the stuff are undocumented since it's considered unstable and will likely to change. You should sometimes look at the source code or example apps in eg directory to see how this thing works.

Feel free to hack on it and ask me if you have questions or suggestions at IRC: #plack on irc.perl.org.

DESCRIPTION ^

Tatsumaki is a toy port of Tornado for Perl using Plack (with non-blocking extensions) and AnyEvent.

It allows you to write a web application that does a immediate response with template rendering, IO-bound delayed response (like fetching third party API or XML feeds), server push streaming and long-poll Comet in a clean unified API.

PSGI COMPATIBILITY ^

When asynchronous is declared in your application, you need a PSGI server backend that supports psgi.streaming response style. If your application does server push with stream_write, you need a server that supports psgi.nonblocking (and psgi.streaming) as well.

Currently Tatsumaki asynchronous application is supposed to run on Tatsumaki::Server, Plack::Server::AnyEvent, Plack::Server::Coro and Plack::Server::POE.

If asynchronous is not used, your application is supposed to run in any PSGI standard environments, including blocking multiprocess environments like mod_perl2 and prefork.

TATSUMAKI? ^

Tatsumaki is a Japanese for Tornado. Also, it might sound familiar from "Tatsumaki Senpuukyaku" of Ryu from Street Fighter II if you loved the Capcom videogame back in the day :)

AUTHOR ^

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

LICENSE ^

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO ^

AnyEvent Plack PSGI http://www.tornadoweb.org/

syntax highlighting: