Mercurial > pub > Impl

comparison Lib/IMPL/Object/EventSource.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 16ada169ca75
children d1676be8afcc
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
63 } 63 }
64 }; 64 };
65 } 65 }
66 66
67 package IMPL::Object::EventSource::EventTable; 67 package IMPL::Object::EventSource::EventTable;
68 use base qw(IMPL::Object); 68 use parent qw(IMPL::Object);
69 use IMPL::Class::Property; 69 use IMPL::Class::Property;
70 use IMPL::Class::Property::Direct; 70 use IMPL::Class::Property::Direct;
71 use Scalar::Util qw(weaken); 71 use Scalar::Util qw(weaken);
72 72
73 use overload 73 use overload
133 133
134 __END__ 134 __END__
135 =pod 135 =pod
136 =head1 SYNOPSIS 136 =head1 SYNOPSIS
137 package Foo; 137 package Foo;
138 use base qw(IMPL::Object IMPL::Object::EventSource); 138 use parent qw(IMPL::Object IMPL::Object::EventSource);
139 139
140 # declare events 140 # declare events
141 __PACKAGE__->CreateEvent('OnUpdate'); 141 __PACKAGE__->CreateEvent('OnUpdate');
142 __PACKAGE__->CreateStaticEvent('OnNewObject'); 142 __PACKAGE__->CreateStaticEvent('OnNewObject');
143 143