X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FSimple.pm;h=c925bda4b3d2a4c44618a36a8e6eb1500b0b4168;hb=ed6e2c15d23a24b24e56c04c00ee799d4f6d7433;hp=0b7a1f77deb71024e2d381c32244b5001fea79c6;hpb=ca30a01761cb64b38f8fa01dba50ddceffedec29;p=catagits%2FWeb-Simple.git diff --git a/lib/Web/Simple.pm b/lib/Web/Simple.pm index 0b7a1f7..c925bda 100644 --- a/lib/Web/Simple.pm +++ b/lib/Web/Simple.pm @@ -6,7 +6,7 @@ use warnings::illegalproto (); use Moo (); use Web::Dispatch::Wrapper (); -our $VERSION = '0.009'; +our $VERSION = '0.013'; sub import { my ($class, $app_package) = @_; @@ -40,7 +40,7 @@ Web::Simple - A quick and easy way to build simple web applications #!/usr/bin/env perl package HelloWorld; - use Web::Simple + use Web::Simple; sub dispatch_request { sub (GET) { @@ -198,6 +198,17 @@ However, generally, instead of that, you return a set of dispatch subs: ... } +Well, a sub is a valid PSGI response too (for ultimate streaming and async +cleverness). If you want to return a PSGI sub you have to wrap it into an +array ref. + + sub dispatch_request { + [ sub { + my $respond = shift; + # This is pure PSGI here, so read perldoc PSGI + } ] + } + If you return a subroutine with a prototype, the prototype is treated as a match specification - and if the test is passed, the body of the sub is called as a method any matched arguments (see below for more details). @@ -311,22 +322,32 @@ also match more than one part: and so on. To match an arbitrary number of parts, use - sub (/page/**) { + my ($self, $match) = @_; -This will result in an element per /-separated part so matched. Note that -you can do +This will result in a single element for the entire match. Note that you can do sub (/page/**/edit) { to match an arbitrary number of parts up to but not including some final part. +Note: Since Web::Simple handles a concept of file extensions, * and ** +matchers will not by default match things after a final dot, and this +can be modified by using *.* and **.* in the final position, i.e.: + + /one/* matches /one/two.three and captures "two" + /one/*.* matches /one/two.three and captures "two.three" + /** matches /one/two.three and captures "one/two" + /**.* matches /one/two.three and captures "one/two.three" + Finally, sub (/foo/...) { -Will match /foo/ on the beginning of the path -and- strip it. This is designed -to be used to construct nested dispatch structures, but can also prove useful -for having e.g. an optional language specification at the start of a path. +Will match C on the beginning of the path -and- strip it. This is +designed to be used to construct nested dispatch structures, but can also prove +useful for having e.g. an optional language specification at the start of a +path. Note that the '...' is a "maybe something here, maybe not" so the above specification will match like this: @@ -335,14 +356,62 @@ specification will match like this: /foo/ # match and strip path to '/' /foo/bar/baz # match and strip path to '/bar/baz' -Note: Since Web::Simple handles a concept of file extensions, * and ** -matchers will not by default match things after a final dot, and this -can be modified by using *.* and **.* in the final position, i.e.: +Almost the same, - /one/* matches /one/two.three and captures "two" - /one/*.* matches /one/two.three and captures "two.three" - /** matches /one/two.three and captures "one/two" - /**.* matches /one/two.three and captures "one/two.three" + sub (/foo...) { + +Will match on C, but also include C. Otherwise it +operates the same way as C. + + /foo # match and strip path to '' + /foo/ # match and strip path to '/' + /foo/bar/baz # match and strip path to '/bar/baz' + +Please note the difference between C and C. In +the first case, this is expecting to find something after C (and fails to +match if nothing is found), while in the second case we can match both C +and C. The following are roughly the same: + + sub (/foo) { 'I match /foo' }, + sub (/foo/...) { + sub (/bar) { 'I match /foo/bar' }, + sub (/*) { 'I match /foo/{id}' }, + } + +Versus + + sub (/foo...) { + sub (~) { 'I match /foo' }, + sub (/bar) { 'I match /foo/bar' }, + sub (/*) { 'I match /foo/{id}' }, + } + +You may prefer the latter example should you wish to take advantage of +subdispatchers to scope common activities. For example: + + sub (/user...) { + my $user_rs = $schema->resultset('User'); + sub (~) { $user_rs }, + sub (/*) { $user_rs->find($_[1]) }, + } + +You should note the special case path match C which is only meaningful +when it is contained in this type of path match. It matches to an empty path. + +=head4 C and C are different specs + +As you may have noticed with the difference between C and +C, trailing slashes in path specs are significant. This is +intentional and necessary to retain the ability to use relative links on +websites. Let's demonstrate on this link: + + bar + +If the user loads the url C and clicks on this link, they will be +sent to C. However when they are on the url C and click this +link, then they will be sent to C. + +This makes it necessary to be explicit about the trailing slash. =head3 Extension matches @@ -695,7 +764,7 @@ John Napiorkowski (jnap) Josh McMichael -Justin Hunter +Justin Hunter (arcanez) Kjetil Kjernsmo @@ -707,9 +776,11 @@ nperez Robin Edwards +Andrew Rodland (hobbs) + =head1 COPYRIGHT -Copyright (c) 2010 the Web::Simple L and L +Copyright (c) 2011 the Web::Simple L and L as listed above. =head1 LICENSE