comparison Lib/IMPL/Web/QueryHandler.pm @ 194:4d0e1962161c

Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
6 __PACKAGE__->PassThroughArgs; 6 __PACKAGE__->PassThroughArgs;
7 7
8 use IMPL::Exception; 8 use IMPL::Exception;
9 9
10 sub Invoke { 10 sub Invoke {
11 my ($self,$action,$nextHandler) = @_; 11 my ($self,$action,$nextHandler) = @_;
12 12
13 if (not ref $self) { 13 if (not ref $self) {
14 return $self->new( action => $action )->Invoke($action,$nextHandler); 14 return $self->new( action => $action )->Invoke($action,$nextHandler);
15 } else { 15 } else {
16 return $self->Process($action,$nextHandler); 16 return $self->Process($action,$nextHandler);
17 } 17 }
18 } 18 }
19 19
20 sub Process { 20 sub Process {
21 die new IMPL::NotImplementedException("The method isn't implemented", __PACKAGE__, 'Process'); 21 die new IMPL::NotImplementedException("The method isn't implemented", __PACKAGE__, 'Process');
22 } 22 }
23 23
24 1; 24 1;
25 25
26 __END__ 26 __END__
40 package MyHandler; 40 package MyHandler;
41 41
42 use parent qw(IMPL::Web::QueryHandler); 42 use parent qw(IMPL::Web::QueryHandler);
43 43
44 sub CTOR { 44 sub CTOR {
45 my ($this,%args) = @_; 45 my ($this,%args) = @_;
46 46
47 } 47 }
48 48
49 sub Process { 49 sub Process {
50 my ($this,$action,$nextHandler) = @_; 50 my ($this,$action,$nextHandler) = @_;
51 51
52 } 52 }
53 53
54 =end code 54 =end code
55 55
56 =head1 MEMBERS 56 =head1 MEMBERS