Mercurial > pub > Impl
comparison Lib/IMPL/lang.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
| author | sergey |
|---|---|
| date | Thu, 18 Oct 2012 04:49:55 +0400 |
| parents | 6d8092d8ce1b |
| children | 56364d0c4b4f |
comparison
equal
deleted
inserted
replaced
| 240:abc7c26bf615 | 241:f48a1a9f4fa2 |
|---|---|
| 158 } | 158 } |
| 159 | 159 |
| 160 sub hashApply { | 160 sub hashApply { |
| 161 my ($target,$diff) = @_; | 161 my ($target,$diff) = @_; |
| 162 | 162 |
| 163 return $target unless ref $diff eq 'HASH'; | |
| 164 | |
| 163 while ( my ($key,$value) = each %$diff) { | 165 while ( my ($key,$value) = each %$diff) { |
| 164 $key =~ /^(\+|-)?(.*)$/; | 166 $key =~ /^(\+|-)?(.*)$/; |
| 165 my $op = $1 || '+'; | 167 my $op = $1 || '+'; |
| 166 $key = $2; | 168 $key = $2; |
| 167 | 169 |