Mercurial > pub > Impl

comparison Lib/IMPL/Transform.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 e6447ad85cb4
children d1676be8afcc
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package IMPL::Transform; 1 package IMPL::Transform;
2 use base qw(IMPL::Object); 2 use parent qw(IMPL::Object);
3 3
4 use IMPL::Class::Property; 4 use IMPL::Class::Property;
5 use IMPL::Class::Property::Direct; 5 use IMPL::Class::Property::Direct;
6 6
7 BEGIN { 7 BEGIN {
48 48
49 return ref $object; 49 return ref $object;
50 } 50 }
51 51
52 package IMPL::Transform::NoTransformException; 52 package IMPL::Transform::NoTransformException;
53 use base qw(IMPL::Exception); 53 use parent qw(IMPL::Exception);
54 54
55 our %CTOR = ( 55 our %CTOR = (
56 'IMPL::Exception' => sub { 'No transformation', @_ } 56 'IMPL::Exception' => sub { 'No transformation', @_ }
57 ); 57 );
58 58