diff Lib/IMPL/Object/EventSource.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 16ada169ca75
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/Object/EventSource.pm	Sat Apr 23 23:06:48 2011 +0400
+++ b/Lib/IMPL/Object/EventSource.pm	Sat Apr 23 23:12:06 2011 +0400
@@ -65,7 +65,7 @@
 }
 
 package IMPL::Object::EventSource::EventTable;
-use base qw(IMPL::Object);
+use parent qw(IMPL::Object);
 use IMPL::Class::Property;
 use IMPL::Class::Property::Direct;
 use Scalar::Util qw(weaken);
@@ -135,7 +135,7 @@
 =pod
 =head1 SYNOPSIS
 package Foo;
-use base qw(IMPL::Object IMPL::Object::EventSource);
+use parent qw(IMPL::Object IMPL::Object::EventSource);
 
 # declare events
 __PACKAGE__->CreateEvent('OnUpdate');