SVN: toys/rsget.pl/RSGet/Plugin.pm

[sparky]

Author: sparky
Date: Mon Jan  4 19:07:37 2010
New Revision: 11091

Modified:
   toys/rsget.pl/RSGet/Plugin.pm
Log:
- start guessing new getter from last guessed one


Modified: toys/rsget.pl/RSGet/Plugin.pm
==============================================================================
--- toys/rsget.pl/RSGet/Plugin.pm	(original)
+++ toys/rsget.pl/RSGet/Plugin.pm	Mon Jan  4 19:07:37 2010
@@ -263,12 +263,18 @@
 }
 
 
-
+my $from_uri_last;
 sub from_uri
 {
 	my $uri = shift;
+	if ( $from_uri_last ) {
+		return $from_uri_last if $from_uri_last->can_do( $uri );
+	}
 	foreach my $getter ( values %getters ) {
-		return $getter if $getter->can_do( $uri );
+		if ( $getter->can_do( $uri ) ) {
+			$from_uri_last = $getter;
+			return $getter;
+		}
 	}
 	return undef;
 }