better request information examples

mojolicious · Jun 16, 2012 · 84df65a · 84df65a
1 parent ddf2267
commit 84df65a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 14 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,5 @@
 
-3.0  2012-06-15
+3.0  2012-06-16
   - Code name "Rainbow", this is a major release.
   - Removed Mojolicious::Plugin::I18N so it can be maintained as a separate
     distribution.

diff --git a/lib/Mojo/Message.pm b/lib/Mojo/Message.pm
@@ -22,19 +22,7 @@ has version          => '1.1';
 # "I'll keep it short and sweet. Family. Religion. Friendship.
 #  These are the three demons you must slay if you wish to succeed in
 #  business."
-sub at_least_version {
-  my ($self, $version) = @_;
-
-  # Major and minor
-  my ($search_major,  $search_minor)  = split /\./, $version;
-  my ($current_major, $current_minor) = split /\./, $self->version;
-
-  # Major version is newer
-  return 1 if $search_major < $current_major;
-
-  # Minor version is newer or equal
-  return $search_major == $current_major && $search_minor <= $current_minor;
-}
+sub at_least_version { shift->version >= shift }
 
 sub body {
   my $self = shift;

diff --git a/lib/Mojolicious/Controller.pm b/lib/Mojolicious/Controller.pm
@@ -824,6 +824,10 @@ L<Mojo::Message::Request> object.
 
   # Extract request information
   my $userinfo = $c->req->url->userinfo;
+  my $agent    = $c->req->headers->user_agent;
+  my $body     = $c->req->body;
+  my $foo      = $c->req->json('/23/foo');
+  my $bar      = $c->req->dom('div.bar')->first->text;
 
 =head2 C<res>