Example code for url_with proposal

gistfile1.pl

  $self->helper(
    url_with => sub {
      my $this  = shift;
      my $url   = $this->req->url->clone;
      return $url unless @_;

      my $query = ref $_[-1] eq 'HASH'
             || ( ref $_[-1] eq 'ARRAY' and not @{$_[-1]} % 2 )
             ? pop : [];

      if ( @_ && ref $_[0] eq 'ARRAY' ) {
        my $current_query = $url->query->clone;
        $url = $this->url_for(@{ shift() });
        $url->query($current_query);
      }
      elsif ( my $path = shift ) {
        $url->path($path);
      }

      $url->query($query);

      return $url;
    }
  );