comparison Lib/Form/Filter/Mandatory.pm @ 165:76515373dac0

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 16ada169ca75
children
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 package Form::Filter::Mandatory; 1 package Form::Filter::Mandatory;
2 use strict; 2 use strict;
3 use Common; 3 use Common;
4 use base qw(Form::Filter); 4 use parent qw(Form::Filter);
5 5
6 sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET } 6 sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET }
7 7
8 sub Invoke { 8 sub Invoke {
9 my ($this,$target,$context,$schemaTarget,$parent) = @_; 9 my ($this,$target,$context,$schemaTarget,$parent) = @_;