Mercurial > pub > Impl

diff Lib/IMPL/Web/Security.pm @ 107:0e72ad99eef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated Web::TT
author wizard
date Thu, 13 May 2010 03:46:29 +0400
parents 964587c5183c
children 1722ca51537c
line wrap: on
line diff
--- a/Lib/IMPL/Web/Security.pm	Wed May 12 17:52:12 2010 +0400
+++ b/Lib/IMPL/Web/Security.pm	Thu May 13 03:46:29 2010 +0400
@@ -14,6 +14,13 @@
 	public property sourceSession => prop_all;
 }
 
+sub CTOR {
+	my ($this) = @_;
+	
+	die new IMPL::InvalidArgumentException("An argument is required",'sourceUser') unless $this->sourceUser;
+	die new IMPL::InvalidArgumentException("An argument is required",'sourceSession') unless $this->sourceSession;
+}
+
 sub AuthUser {
 	my ($this,$name,$package,$challenge) = @_;