The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use t::Util;
use Test::More;
use Furl;
use Test::Requires qw(Plack::Request HTTP::Body), 'Net::IDN::Encode';

skip_if_offline();

my $url = 'http://例え.テスト/';

my $furl = Furl->new();
my $res  = $furl->get($url);
ok $res->is_success or $res->status_line;

utf8::decode($url);
$res = $furl->get($url);
ok $res->is_success or $res->status_line;

done_testing;