Skip to content

Instantly share code, notes, and snippets.

Created August 19, 2014 03:42
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/995394e6e6212297bb5c to your computer and use it in GitHub Desktop.
Save anonymous/995394e6e6212297bb5c to your computer and use it in GitHub Desktop.
$ perl -Mojo -E 'get "/foo/bar/baz/yada" => "x"; my $c = app->build_controller; $c->req->url->base(Mojo::URL->new("http://example.com")); n { $c->url_for("x") } 10000'
0.912616 wallclock secs ( 0.91 usr + 0.00 sys = 0.91 CPU) @ 10989.01/s (n=10000)
$ perl -Ilib -Mojo -E 'get "/foo/bar/baz/yada" => "x"; my $c = app->build_controller; $c->req->url->base(Mojo::URL->new("http://example.com")); n { $c->url_for("x") } 10000'
0.819178 wallclock secs ( 0.81 usr + 0.00 sys = 0.81 CPU) @ 12345.68/s (n=10000)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment