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

Updated Web::TT
author wizard
date Thu, 13 May 2010 03:46:29 +0400
parents 964587c5183c
children 1722ca51537c
comparison
equal deleted inserted replaced
106:83e356614c1e 107:0e72ad99eef7
10 __PACKAGE__->PassThroughArgs; 10 __PACKAGE__->PassThroughArgs;
11 11
12 BEGIN { 12 BEGIN {
13 public property sourceUser => prop_all; 13 public property sourceUser => prop_all;
14 public property sourceSession => prop_all; 14 public property sourceSession => prop_all;
15 }
16
17 sub CTOR {
18 my ($this) = @_;
19
20 die new IMPL::InvalidArgumentException("An argument is required",'sourceUser') unless $this->sourceUser;
21 die new IMPL::InvalidArgumentException("An argument is required",'sourceSession') unless $this->sourceSession;
15 } 22 }
16 23
17 sub AuthUser { 24 sub AuthUser {
18 my ($this,$name,$package,$challenge) = @_; 25 my ($this,$name,$package,$challenge) = @_;
19 26