URIとURI::Escapeのurlencodeについて (1)

ソース

#!/usr/bin/perl

use strict;
use warnings;

use URI;
use URI::Escape qw();

local $\ = "\n";

my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/");
$uri->query_form("key=a b c d e");

print $uri->query;
print URI::Escape::uri_escape("key=a b c d e");

結果

$ perl ~/tmp/uri.pl
key%3Da+b+c+d+e=
key%3Da%20b%20c%20d%20e

なにぃぃぃぃ！

URI, URI::Escape共に同じディストリビューションなのにっ！