Mercurial > pub > Impl

comparison Lib/CDBI/Transform.pm @ 165:76515373dac0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 CDBI::Transform::FormToObject; 1 package CDBI::Transform::FormToObject;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Object::Autofill Form::Transform ); 5 use parent qw(IMPL::Object::Autofill Form::Transform );
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 require IMPL::Exception; 7 require IMPL::Exception;
8 8
9 BEGIN { 9 BEGIN {
10 public property Class => prop_all; 10 public property Class => prop_all;
69 return $name if $name =~ /::/; 69 return $name if $name =~ /::/;
70 return $this->Namespace ? $this->Namespace."::$name" : $name; 70 return $this->Namespace ? $this->Namespace."::$name" : $name;
71 } 71 }
72 72
73 package CDBI::Transform::ObjectToForm; 73 package CDBI::Transform::ObjectToForm;
74 use base qw(IMPL::Transform); 74 use parent qw(IMPL::Transform);
75 75
76 use IMPL::Class::Property; 76 use IMPL::Class::Property;
77 77
78 sub CTOR { 78 sub CTOR {
79 my $this = shift; 79 my $this = shift;