Mercurial > pub > Impl

comparison Lib/IMPL/Object/Abstract.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 eb3e9861a761
children d920d2b70230
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package IMPL::Object::Abstract; 1 package IMPL::Object::Abstract;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Class::Meta); 5 use parent qw(IMPL::Class::Meta);
6 6
7 our $MemoryLeakProtection; 7 our $MemoryLeakProtection;
8 my $Cleanup = 0; 8 my $Cleanup = 0;
9 9
10 my %cacheCTOR; 10 my %cacheCTOR;
125 125
126 =pod 126 =pod
127 =head1 SYNOPSIS 127 =head1 SYNOPSIS
128 128
129 package MyBaseObject; 129 package MyBaseObject;
130 use base qw(IMPL::Object::Abstract); 130 use parent qw(IMPL::Object::Abstract);
131 131
132 sub new { 132 sub new {
133 # own implementation of the new opeator 133 # own implementation of the new opeator
134 } 134 }
135 135