diff Lib/IMPL/Web/AutoLocator.pm @ 244:a02b110da931

refactoring fixed binding to CGI query parameters with multiple values
author sergey
date Mon, 22 Oct 2012 04:09:27 +0400
parents 5c82eec23bb6
children 32aceba4ee6d
line wrap: on
line diff
--- a/Lib/IMPL/Web/AutoLocator.pm	Fri Oct 19 02:23:15 2012 +0400
+++ b/Lib/IMPL/Web/AutoLocator.pm	Mon Oct 22 04:09:27 2012 +0400
@@ -1,8 +1,11 @@
 package IMPL::Web::AutoLocator;
 use strict;
 
+use overload '""' => 'toString';
+
 use IMPL::Const qw(:prop);
-use IMPL::lang qw( :hash );
+use IMPL::lang qw(:hash);
+use IMPL::clone qw(clone);
 use URI;
 use URI::Escape;
 use IMPL::declare {
@@ -23,6 +26,12 @@
 	]
 };
 
+sub Clone {
+    my $this = shift;
+    
+    return clone($this);
+}
+
 sub Child {
 	my $this = shift;
 	my $child = shift or die ArgumentException->new("a child resource identifier is required");
@@ -64,6 +73,10 @@
 	return $url;
 }
 
+sub toString {
+    shift->url->as_string();
+}
+
 sub AUTOLOAD {
 	our $AUTOLOAD;