comparison Lib/IMPL/DOM/Schema/Validator/RegExp.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 e6447ad85cb4
children d1676be8afcc
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 package IMPL::DOM::Schema::Validator::RegExp; 1 package IMPL::DOM::Schema::Validator::RegExp;
2 2
3 use base qw(IMPL::DOM::Schema::Validator); 3 use parent qw(IMPL::DOM::Schema::Validator);
4 4
5 our %CTOR = ( 5 our %CTOR = (
6 'IMPL::DOM::Schema::Validator' => sub { 6 'IMPL::DOM::Schema::Validator' => sub {
7 my %args = @_; 7 my %args = @_;
8 $args{nodeName} ||= 'RegExp'; 8 $args{nodeName} ||= 'RegExp';