comparison Lib/IMPL/Object/Fields.pm @ 166:4267a2ac3d46

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents eb3e9861a761
children d1676be8afcc
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package IMPL::Object::Fields; 1 package IMPL::Object::Fields;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Object::Abstract); 5 use parent qw(IMPL::Object::Abstract);
6 6
7 sub new { 7 sub new {
8 my $class = shift; 8 my $class = shift;
9 9
10 $class = ref $class || $class; 10 $class = ref $class || $class;