diff Lib/IMPL/Web/Application/RestResource.pm @ 212:292226770180

bugfixes
author sergey
date Fri, 29 Jun 2012 19:24:15 +0400
parents 5146e17a7b76
children e9fd7ff3f54c
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/RestResource.pm	Tue Jun 05 07:45:21 2012 +0400
+++ b/Lib/IMPL/Web/Application/RestResource.pm	Fri Jun 29 19:24:15 2012 +0400
@@ -32,13 +32,15 @@
 }
 
 sub CTOR {
-	my ($this) = @_;
+	my ($this,%args) = @_;
 	
 	die ArgumentException->new("target") unless $this->target;
 	
 	$this->final($this->childRegex ? 0 : 1);
 	$this->methods({}) unless $this->methods;
 	
+	$this->index($this->get) unless defined $this->index;
+	
 	if ($this->enableForms) {
         $this->methods->{create} = {
         	get => $this->get,