Mercurial > pub > Impl
diff Lib/IMPL/DOM/Transform.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | d660fb38b7cc |
children | f017c0d7527c |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Transform.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/DOM/Transform.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,33 +1,33 @@ -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 \ No newline at end of file +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