Snippets

Brian Medley Filter example

Created by Brian Medley
filter.pl
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
use Mojolicious::Lite;

sub filter {
    my ($route, $c, $captures, $options) = @_;

    return undef unless $options;
 
    $DB::single = 1;

    foreach my $name (keys %{ $options }) {
        my $value = $options->{$name}->($c, $name, $c->req->param($name));

        $c->req->param($name, $value);
    }
 
    return 1;
}

app->routes->add_condition(filter => \&filter);

get "/" => sub {
    my $c = shift;

    $c->render(template => "data");
};

sub upper {
    uc(pop);
}

post "/upper" => (filter => {joy => \&upper}) => sub {
    my $c = shift;

    $c->stash("output", $c->param("joy"));

    $c->render(template => "data");
};

post "/same" => sub {
    my $c = shift;

    $c->stash("output", $c->param("joy"));

    $c->render(template => "data");
};

app->start;

__DATA__

@@ data.html.ep
<!DOCTYPE html>
<html>
  <body>
    "<%= stash('output') %>"
    <form action="/upper" method="post">
        <input type="text" name="joy">
        <input type="submit" name="submit" value="Submit">
    </form>
    <hr>
    <form action="/same" method="post">
        <input type="text" name="joy">
        <input type="submit" name="submit" value="Submit">
    </form>
  </body>
</html>

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.