sub dispatch_request {
my $self = shift;
- match_path(qr/(?^:^(\/)$)/), sub {
+ ## sub(/) {
+ match_path(qr/(?-xism:^(\/)$)/), sub {
$self->show_landing(@_);
},
- match_path_strip(qr/(?^:^()(\/.*)$)/) => sub {
+ ## sub(/...) {
+ match_path_strip(qr/(?-xism:^()(\/.*)$)/) => sub {
match_and
(
match_method('GET'),
- match_path(qr/(?^:^(\/user(?:\.\w+)?)$)/)
+ match_path(qr/(?-xism:^(\/user(?:\.\w+)?)$)/)
) => sub {
$self->show_users(@_);
},
- match_path(qr/(?^:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
+ match_path(qr/(?-xism:^(\/user\/([^\/]+?)(?:\.\w+)?)$)/), sub {
match_method('GET') => sub {
$self->show_user(@_);
},
is ref($env), 'HASH', 'Got hashref';
}
-ok my $post_user = run_request(POST => 'http://localhost/user/42', [id => '99'] ),
+ok my $post_user = run_request(POST => 'http://localhost/user/42', id => '99' ),
'post user';
cmp_ok $post_user->code, '==', 200,
'200 on POST';
{
- my ($self, $params, $env, @noextra) = @{eval $post_user->content};
+ my ($self, $params, $env, @noextra) = @{eval $post_user->content or die $@};
is scalar(@noextra), 0, 'No extra stuff';
is ref($self), 't::Web::Simple::SubDispatchArgs', 'got object';
is ref($params), 'HASH', 'Got POST hashref';