Mercurial > pub > Impl
view Lib/IMPL/DOM/Transform.pm @ 263:0f59b2de72af
*fixed IMPL::DOM::Schema circular module references
*modified IMPL::Object::Singleton, added auto-activation
*code cleanups, docs
author | sergey |
---|---|
date | Wed, 09 Jan 2013 05:17:44 +0400 |
parents | d1676be8afcc |
children |
line wrap: on
line source
package IMPL::DOM::Transform; use strict; use warnings; use parent 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