### Google 画像検索へのリンクプラグイン
# usage: {{google_image('keyword')}}
sub google_image {
	my ($str) = @_;
	my $prefix = q(http://images.google.com/images?q=);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix$enc" title="Google Images - $str">Google 画像検索 - $str</a>);
}

### Google Video検索へのリンクプラグイン
# usage: {{google_video('keyword')}}
sub google_video{
	my ($str) = @_;
	my $prefix = q(http://video.google.com/videosearch?q=);
	return qq(<a href="$prefix$str" title="Google Video - $str">Google 動画検索 - $str</a>);
}