small optimizations

mojolicious · Aug 2, 2014 · aa003af · aa003af
1 parent 4b01d87
commit aa003af
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/lib/Mojo/Message.pm b/lib/Mojo/Message.pm
@@ -140,15 +140,9 @@ sub json {
 }
 
 sub links {
-  my $self = shift;
-
-  my %links;
-  for my $link (@{split_header $self->headers->link // '', \&_link}) {
-    my $hash = {url => (splice @$link, 0, 2)[0], @$link};
-    $links{$hash->{rel}} = $hash;
-  }
-
-  return \%links;
+  my $links = split_header shift->headers->link // '', \&_link;
+  my @links = map { {url => (splice @$_, 0, 2)[0], @$_} } @$links;
+  return {map { $_->{rel} => $_ } @links};
 }
 
 sub param { shift->body_params->param(@_) }