Mercurial > pub > Impl
view Lib/IMPL/DOM/Transform.pm @ 44:32d2350fccf9
ORM
*Minor fixes
*Working tarnsform to sql
*Fixes to the sql traits
author | Sergey |
---|---|
date | Mon, 11 Jan 2010 01:42:00 +0300 |
parents | d660fb38b7cc |
children | 16ada169ca75 |
line wrap: on
line source
package IMPL::DOM::Transform; use strict; use warnings; use base qw(IMPL::Transform); __PACKAGE__->PassThroughArgs; sub GetClassForObject { my ($this,$object) = @_; if (my $class = ref $object) { if (UNIVERSAL::isa($object,'IMPL::DOM::Node')) { return $object->nodeName; } else { return $class; } } else { return undef; } } 1; __END__ =pod =head1 DESCRIPTION Преобразование для DOM документа =cut