Mercurial > pub > Impl
view Lib/IMPL/DOM/Transform.pm @ 213:d6e2ea24af08
sync
author | sergey |
---|---|
date | Fri, 03 Aug 2012 01:15:15 +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