View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Arthur Axel "fREW" Schmidt > Catalyst-Action-FromPSGI > Catalyst::Action::FromPSGI



Annotate this POD

View/Report Bugs
Module Version: 0.001006   Source  


Catalyst::Action::FromPSGI - Use a PSGI app as a Catalyst action


version 0.001006


First, you have a psgi app you wrote and want to use:

 package MyApp::WS::App;

 use Web::Simple;

 has name => (
    is => 'ro',
    required => 1,

 sub dispatch_request {
    sub (/hi) {
       [ 200,
          [ 'Content-type' => 'text/plain' ],
          [ 'Hello ' . $_[0]->name ]


Now you want to reuse this app in a Catalyst action:

 package MyApp::Controller::HelloName;

 use base 'Catalyst::Controller';

 sub say_hi :Path('/say_hi_to') ActionClass('FromPSGI') {
   my ($self, $c, $name, @args) = @_;

   MyApp::WS::App->new(name => $name)->to_psgi_app


The above would yield 'Hello fREW' for the request to /say_hi_to/fREW/hi.

Of course the above example is contrived, but keep in mind this will work for any of the myriad PSGI apps out there.


Catalyst::Action::FromPSGI gives you a handy way to mount PSGI apps under Catalyst actions.

Note that because Catalyst is in control of the dispatch cycle any limitations you place on it will be placed on the PSGI app as well. So for example:

 sub foo : Path('/foo') Args(1) ActionClass('FromPSGI') { ... }

will never run the PSGI app if the url is /foo/bar/baz because the Catalyst dispatcher won't even match for more than one argument. For this reason I recommend leaving Args unspecified for FromPSGI actions.

I actually made this because I'm interested in using Web::Machine instead of Catalyst::Action::REST and possibly even replacing my chaining code with Web::Simple based dispatching.


Matt S. Trout - for pioneering the actual guts of this code. Stevan Little - for porting Web::Machine, my motivation for making this.


Arthur Axel "fREW" Schmidt <>


This software is copyright (c) 2014 by Arthur Axel "fREW" Schmidt.

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

syntax highlighting: