X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=0e2fdbd23bae24606be1ba3f9056f36957296cbf;hp=9ac29efee55d98632df50e762e11dc53d2e103b1;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hpb=551068cfd29b252658de18655ac4bc193ccd5b56 diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 9ac29ef..0e2fdbd 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -35,13 +35,14 @@ use utf8; use Carp qw/croak carp shortmess/; use Try::Tiny; use Safe::Isa; +use Moose::Util 'find_meta'; use Plack::Middleware::Conditional; use Plack::Middleware::ReverseProxy; use Plack::Middleware::IIS6ScriptNameFix; use Plack::Middleware::IIS7KeepAliveFix; use Plack::Middleware::LighttpdScriptNameFix; use Plack::Util; -use Class::Load; +use Class::Load 'load_class'; BEGIN { require 5.008003; } @@ -63,6 +64,7 @@ sub _build_request_constructor_args { my $self = shift; my %p = ( _log => $self->log ); $p{_uploadtmp} = $self->_uploadtmp if $self->_has_uploadtmp; + $p{data_handlers} = {$self->registered_data_handlers}; \%p; } @@ -106,7 +108,8 @@ our $GO = Catalyst::Exception::Go->new; __PACKAGE__->mk_classdata($_) for qw/components arguments dispatcher engine log dispatcher_class engine_loader context_class request_class response_class stats_class - setup_finished _psgi_app loading_psgi_file run_options/; + setup_finished _psgi_app loading_psgi_file run_options _psgi_middleware + _data_handlers/; __PACKAGE__->dispatcher_class('Catalyst::Dispatcher'); __PACKAGE__->request_class('Catalyst::Request'); @@ -115,7 +118,7 @@ __PACKAGE__->stats_class('Catalyst::Stats'); # Remember to update this in Catalyst::Runtime as well! -our $VERSION = '5.90042'; +our $VERSION = '5.90049_002'; sub import { my ( $class, @arguments ) = @_; @@ -324,7 +327,18 @@ cookies, HTTP headers, etc.). See L. =head2 $c->forward( $class, $method, [, \@arguments ] ) -Forwards processing to another action, by its private name. If you give a +This is one way of calling another action (method) in the same or +a different controller. You can also use C<< $self->my_method($c, @args) >> +in the same controller or C<< $c->controller('MyController')->my_method($c, @args) >> +in a different controller. +The main difference is that 'forward' uses some of the Catalyst request +cycle overhead, including debugging, which may be useful to you. On the +other hand, there are some complications to using 'forward', restrictions +on values returned from 'forward', and it may not handle errors as you prefer. +Whether you use 'forward' or not is up to you; it is not considered superior to +the other ways to call a method. + +'forward' calls another action, by its private name. If you give a class name but no method, C is called. You may also optionally pass arguments in an arrayref. The action will receive the arguments in C<@_> and C<< $c->req->args >>. Upon returning from the function, @@ -1110,6 +1124,8 @@ sub setup { $class->setup_log( delete $flags->{log} ); $class->setup_plugins( delete $flags->{plugins} ); + $class->setup_middleware(); + $class->setup_data_handlers(); $class->setup_dispatcher( delete $flags->{dispatcher} ); if (my $engine = delete $flags->{engine}) { $class->log->warn("Specifying the engine in ->setup is no longer supported, see Catalyst::Upgrading"); @@ -1151,6 +1167,27 @@ EOF $class->log->debug( "Loaded plugins:\n" . $t->draw . "\n" ); } + my @middleware = map { + ref $_ eq 'CODE' ? + "Inline Coderef" : + (ref($_) .' '. ($_->can('VERSION') ? $_->VERSION || '' : '') + || '') } $class->registered_middlewares; + + if (@middleware) { + my $column_width = Catalyst::Utils::term_width() - 6; + my $t = Text::SimpleTable->new($column_width); + $t->row($_) for @middleware; + $class->log->debug( "Loaded PSGI Middleware:\n" . $t->draw . "\n" ); + } + + my %dh = $class->registered_data_handlers; + if (my @data_handlers = keys %dh) { + my $column_width = Catalyst::Utils::term_width() - 6; + my $t = Text::SimpleTable->new($column_width); + $t->row($_) for @data_handlers; + $class->log->debug( "Loaded Request Data Handlers:\n" . $t->draw . "\n" ); + } + my $dispatcher = $class->dispatcher; my $engine = $class->engine; my $home = $class->config->{home}; @@ -2463,7 +2500,7 @@ sub run { sub _make_immutable_if_needed { my $class = shift; - my $meta = Class::MOP::get_metaclass_by_name($class); + my $meta = find_meta($class); my $isa_ca = $class->isa('Class::Accessor::Fast') || $class->isa('Class::Accessor'); if ( $meta->is_immutable @@ -2654,7 +2691,7 @@ sub setup_dispatcher { $dispatcher = $class->dispatcher_class; } - Class::MOP::load_class($dispatcher); + load_class($dispatcher); # dispatcher instance $class->dispatcher( $dispatcher->new ); @@ -2704,7 +2741,7 @@ sub setup_engine { # Don't really setup_engine -- see _setup_psgi_app for explanation. return if $class->loading_psgi_file; - Class::MOP::load_class($engine); + load_class($engine); if ($ENV{MOD_PERL}) { my $apache = $class->engine_loader->auto; @@ -2860,7 +2897,8 @@ reference of your Catalyst application for use in F<.psgi> files. sub psgi_app { my ($app) = @_; - return $app->engine->build_psgi_app($app); + my $psgi = $app->engine->build_psgi_app($app); + return $app->Catalyst::Utils::apply_registered_middleware($psgi); } =head2 $c->setup_home @@ -2979,7 +3017,7 @@ the plugin name does not begin with C. my ( $proto, $plugin, $instant ) = @_; my $class = ref $proto || $proto; - Class::MOP::load_class( $plugin ); + load_class( $plugin ); $class->log->warn( "$plugin inherits from 'Catalyst::Component' - this is deprecated and will not work in 5.81" ) if $plugin->isa( 'Catalyst::Component' ); my $plugin_meta = Moose::Meta::Class->create($plugin); @@ -3027,7 +3065,7 @@ the plugin name does not begin with C. } @{ $plugins }; for my $plugin ( reverse @plugins ) { - Class::MOP::load_class($plugin->[0], $plugin->[1]); + load_class($plugin->[0], $plugin->[1]); my $meta = find_meta($plugin->[0]); next if $meta && $meta->isa('Moose::Meta::Role'); @@ -3044,25 +3082,23 @@ the plugin name does not begin with C. $class => @roles ) if @roles; } -} +} -has '_registered_middlewares' => ( - traits => ['Array'], - is => 'bare', - isa => 'ArrayRef[Object|CodeRef]', - default => sub { [] }, - handles => { - registered_middlewares => 'elements', - _register_middleware => 'push', - }); - +=head2 registered_middlewares + +Read only accessor that returns an array of all the middleware in the order +that they were added (which is the REVERSE of the order they will be applied). -=head2 setup_middleware +The values returned will be either instances of L or of a +compatible interface, or a coderef, which is assumed to be inlined middleware + +=head2 setup_middleware (?@middleware) -Read configuration information stored in configuration key 'psgi_middleware' -and invoke L for each middleware prototype found. See -under L information regarding L and how to -use it to enable L +Read configuration information stored in configuration key C or +from passed @args. + +See under L information regarding C and how +to use it to enable L This method is automatically called during 'setup' of your application, so you really don't need to invoke it. @@ -3072,107 +3108,102 @@ which sounds odd but is likely how you expect it to work if you have prior experience with L or if you previously used the plugin L (which is now considered deprecated) -=head2 register_middleware (@args) - -Given @args that represent the definition of some L or -middleware with a compatible interface, register it with your L -application. - -This is called by L. the behaior of invoking it yourself -at runtime is currently undefined, and anything that works or doesn't work -as a result of doing so is considered a side effect subject to change. - -=head2 _register_middleware (@args) - -Internal details of how registered middleware is stored by the application. - -=head2 _build_middleware_from_args (@args) - -Internal application that converts a single middleware definition (see -L) into an actual instance of middleware. - -=head2 registered_middlewares - -Read only accessor that returns an array of all the middleware in the order -that they were added (which is the REVERSE of the order they will be applied). - -The values returned will be either instances of L or of a -compatible interface, or a coderef, which is assumed to be inlined middleware - -=head2 apply_registered_middleware ($psgi) - -Given a $psgi reference, wrap all the L around it and -return the wrapped version. - =cut +sub registered_middlewares { + my $class = shift; + if(my $middleware = $class->_psgi_middleware) { + return @$middleware; + } else { + die "You cannot call ->registered_middlewares until middleware has been setup"; + } +} + sub setup_middleware { - my ($self) = @_; - my @middleware_definitions = reverse - @{$self->config->{'psgi_middleware'}||[]}; + my ($class, @middleware_definitions) = @_; + push @middleware_definitions, reverse( + @{$class->config->{'psgi_middleware'}||[]}); + my @middleware = (); while(my $next = shift(@middleware_definitions)) { if(ref $next) { if(Scalar::Util::blessed $next && $next->can('wrap')) { - $self->register_middleware($next); + push @middleware, $next; } elsif(ref $next eq 'CODE') { - $self->register_middleware($next); + push @middleware, $next; } elsif(ref $next eq 'HASH') { my $namespace = shift @middleware_definitions; - $self->register_middleware($namespace, %$next); + my $mw = $class->Catalyst::Utils::build_middleware($namespace, %$next); + push @middleware, $mw; } else { - $self->register_middleware($next); + die "I can't handle middleware definition ${\ref $next}"; } + } else { + my $mw = $class->Catalyst::Utils::build_middleware($next); + push @middleware, $mw; } } + + $class->_psgi_middleware(\@middleware); } -sub register_middleware { - my($self, @args) = @_; - my $middleware = $self->_build_middleware_from_args(@args); - $self->_register_middleware($middleware); - return $middleware; -} - -sub _build_middleware_from_args { - my ($self, $proto, @args) = @_; - - if(ref $proto) { ## Either an object or coderef - if(Scalar::Util::blessed $proto && $proto->can('wrap')) { ## Its already an instance of middleware - return $proto; - } elsif(ref $proto eq 'CODE') { ## Its inlined coderef - return $proto; - } - } else { ## We assume its a string aiming to load Plack Middleware - my $class = ref($self) || $self; - if( - $proto =~s/^\+// || - $proto =~/^Plack::Middleware/ || - $proto =~/^$class/ - ) { ## the string is a full namespace - require "$proto"; - return $proto->new(@args); - } else { ## the string is a partial namespace - if(Class::Load::try_load_class("Plack::Middleware::$proto")) { ## Act like Plack::Builder - return "Plack::Middleware::$proto"->new(@args); - } elsif(Class::Load::try_load_class("$class::$proto")) { ## Load Middleware from Project namespace - return "$class::$proto"->new(@args); - } - } +=head2 registered_data_handlers + +A read only copy of registered Data Handlers returned as a Hash, where each key +is a content type and each value is a subref that attempts to decode that content +type. + +=head2 setup_data_handlers (?@data_handler) + +Read configuration information stored in configuration key C or +from passed @args. + +See under L information regarding C. + +This method is automatically called during 'setup' of your application, so +you really don't need to invoke it. + +=head2 default_data_handlers + +Default Data Handler that come bundled with L. Currently there is +only one default data handler, for 'application/json'. This uses L +which uses the dependency free L OR L if you have +installed it. If you don't mind the XS dependency, you should add the faster +L to you dependency list (in your Makefile.PL or dist.ini, or +cpanfile, etc.) + +L is loaded the first time you ask for it (so if you never ask +for it, its never used). + +=cut + +sub registered_data_handlers { + my $class = shift; + if(my $data_handlers = $class->_data_handlers) { + return %$data_handlers; + } else { + die "You cannot call ->registered_data_handlers until data_handers has been setup"; } +} + +sub setup_data_handlers { + my ($class, %data_handler_callbacks) = @_; + %data_handler_callbacks = ( + %{$class->default_data_handlers}, + %{$class->config->{'data_handlers'}||+{}}, + %data_handler_callbacks); - die "I don't know how to build $proto into valid Plack Middleware"; + $class->_data_handlers(\%data_handler_callbacks); } -sub apply_registered_middleware { - my ($self, $psgi) = @_; - my $new_psgi = $psgi; - foreach my $middleware ($self->registered_middlewares) { - $new_psgi = Scalar::Util::blessed $middleware ? - $middleware->wrap($new_psgi) : - $middleware->($new_psgi); - } - return $new_psgi; +sub default_data_handlers { + my ($class) = @_; + return +{ + 'application/json' => sub { + local $/; + Class::Load::load_class("JSON::MaybeXS"); + JSON::MaybeXS::decode_json $_->getline }, + }; } =head2 $c->stack @@ -3366,6 +3397,10 @@ In the future this might become the default behavior. C - See L. +=item * + +C - See L. + =back =head1 INTERNAL ACTIONS @@ -3457,6 +3492,46 @@ If you plan to operate in a threaded environment, remember that all other modules you are using must also be thread-safe. Some modules, most notably L, are not thread-safe. +=head1 DATA HANDLERS + +The L object uses L to populate 'classic' HTML +form parameters and URL search query fields. However it has become common +for various alternative content types to be PUT or POSTed to your controllers +and actions. People working on RESTful APIs, or using AJAX often use JSON, +XML and other content types when communicating with an application server. In +order to better support this use case, L defines a global configuration +option, C, which lets you associate a content type with a coderef +that parses that content type into something Perl can readily access. + + package MyApp::Web; + + use Catalyst; + use JSON::Maybe; + + __PACKAGE__->config( + data_handlers => { + 'application/json' => sub { local $/; decode_json $_->getline }, + }, + ## Any other configuration. + ); + + __PACKAGE__->setup; + +By default L comes with a generic JSON data handler similar to the +example given above, which uses L to provide either L +(a pure Perl, dependency free JSON parser) or L if you have +it installed (if you want the faster XS parser, add it to you project Makefile.PL +or dist.ini, cpanfile, etc.) + +The C configuation is a hashref whose keys are HTTP Content-Types +(matched against the incoming request type using a regexp such as to be case +insensitive) and whose values are coderefs that receive a localized version of +C<$_> which is a filehandle object pointing to received body. + +This feature is considered an early access release and we reserve the right +to alter the interface in order to provide a performant and secure solution to +alternative request body content. Your reports welcomed! + =head1 PSGI MIDDLEWARE You can define middleware, defined as L or a compatible @@ -3497,7 +3572,7 @@ So the general form is: Where C<@middleware> is one or more of the following, applied in the REVERSE of the order listed (to make it function similarly to L: -=over4 +=over 4 =item Middleware Object