view Lib/IMPL/DOM/Transform.pm @ 187:927653d01f4f

TTControl::AUTOLOAD now accesses nodeProperties Added TTControl::renderBlock property to access RENDER block of the template
author sergey
date Tue, 03 Apr 2012 07:54:25 +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