Skip to content

Instantly share code, notes, and snippets.

@TristinDavis

TristinDavis/Perl: Mojolicious

Created November 17, 2012 18:57
Show Gist options
  • Save TristinDavis/4098857 to your computer and use it in GitHub Desktop.
Save TristinDavis/4098857 to your computer and use it in GitHub Desktop.
Download ZIP
Example of using logging in a Mojolicious::Lite/Mojolicious application.
Raw
Perl: Mojolicious
#!/usr/bin/env perl
use Mojolicious::Lite;
get '/works' => sub {
my $self = shift;
my $title = $self->ua->get('http://www.google.de')->res->dom->at('title')->text;
$self->render_text('Google title: ' . $title);
};
get '/ok' => sub {
my $self = shift;
$self->app->log->debug('Yep - I am here');
app->log->debug('This logs also :)');
$self->render_text('Works, too');
};
get '/fails' => sub {
my $self = shift;
$self->log->debug('This breaks');
$self->render_text('This broke before');
};
app->start;
Raw
Perl: Mojolicious.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
get '/works' => sub {
my $self = shift;
my $title = $self->ua->get('http://www.google.de')->res->dom->at('title')->text;
$self->render_text('Google title: ' . $title);
};
get '/ok' => sub {
my $self = shift;
$self->app->log->debug('Yep - I am here');
app->log->debug('This logs also :)');
$self->render_text('Works, too');
};
get '/fails' => sub {
my $self = shift;
$self->log->debug('This breaks');
$self->render_text('This broke before');
};
app->start;
@pdkakoba
Copy link

pdkakoba commented Nov 11, 2021 •
edited
Loading

Please update as Mojolicious is at v9:22+ and the first lines would be:

use Mojolicious::Lite -signatures;
get '/works' => sub ($c) {
        my $title = $c->ua->get('http://www.google.de')->res->dom->at('title')->text;
        $c->render(text => 'Google title: ' . $title);
};

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment