Mercurial > pub > Impl

comparison Lib/IMPL/Serialization.pm @ 166:4267a2ac3d46

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:12:06 +0400
parents fb896377389f
children d1676be8afcc
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
6 # (�) Sourcer, cin.sourcer@gmail.com 6 # (�) Sourcer, cin.sourcer@gmail.com
7 # revision 3 (20090517) 7 # revision 3 (20090517)
8 8
9 9
10 package IMPL::Serialization::Context; 10 package IMPL::Serialization::Context;
11 use base qw(IMPL::Object); 11 use parent qw(IMPL::Object);
12 12
13 use IMPL::Class::Property; 13 use IMPL::Class::Property;
14 use IMPL::Class::Property::Direct; 14 use IMPL::Class::Property::Direct;
15 use IMPL::Exception; 15 use IMPL::Exception;
16 use Scalar::Util qw(refaddr); 16 use Scalar::Util qw(refaddr);
139 139
140 return 1; 140 return 1;
141 } 141 }
142 142
143 package IMPL::Deserialization::Context; 143 package IMPL::Deserialization::Context;
144 use base qw(IMPL::Object); 144 use parent qw(IMPL::Object);
145 145
146 use IMPL::Class::Property; 146 use IMPL::Class::Property;
147 use IMPL::Class::Property::Direct; 147 use IMPL::Class::Property::Direct;
148 use IMPL::Exception; 148 use IMPL::Exception;
149 149
376 } 376 }
377 } 377 }
378 } 378 }
379 379
380 package IMPL::Serializer; 380 package IMPL::Serializer;
381 use base qw(IMPL::Object); 381 use parent qw(IMPL::Object);
382 382
383 use IMPL::Class::Property; 383 use IMPL::Class::Property;
384 use IMPL::Class::Property::Direct; 384 use IMPL::Class::Property::Direct;
385 use IMPL::Exception; 385 use IMPL::Exception;
386 386