diff -ru WebService-Upcoming-0.05.orig/Upcoming/Object/Country.pm WebService-Upcoming-0.05/Upcoming/Object/Country.pm
--- WebService-Upcoming-0.05.orig/Upcoming/Object/Country.pm	2005-06-21 08:26:35.000000000 -0700
+++ WebService-Upcoming-0.05/Upcoming/Object/Country.pm	2008-06-08 14:34:56.000000000 -0700
@@ -26,6 +26,7 @@
             return ('id','name','code') if ($_[0] eq '1.0');
             return (); }
 sub _info { return (
+             { 'upco' => 'metro.getCountryList','http' => 'GET' },
              { 'upco' => 'event.getCountryList','http' => 'GET' } ); }
 1;
 __END__
diff -ru WebService-Upcoming-0.05.orig/Upcoming.pm WebService-Upcoming-0.05/Upcoming.pm
--- WebService-Upcoming-0.05.orig/Upcoming.pm	2005-06-21 08:26:35.000000000 -0700
+++ WebService-Upcoming-0.05/Upcoming.pm	2008-06-08 14:34:15.000000000 -0700
@@ -108,7 +108,7 @@
 	delete($args->{'password'}) if (!$args->{'password'});
 	$args->{'method'}  = $upco;
 	$args->{'api_key'} = $self->{'keyy'};
-	$urix = URI->new('http://upcoming.org/services/rest/');
+	$urix = URI->new('http://upcoming.yahooapis.com/services/rest/');
 	$rqst = new HTTP::Request;
 	$rqst->header('Content-Type' => 'application/x-www-form-urlencoded');
 	$rqst->method($Upco_Info{$upco}->{'http'});
Only in WebService-Upcoming-0.05: Upcoming.pm~