Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Transform.pm @ 38:d660fb38b7cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fixes ORM shema to SQL schema transformation
author Sergey
date Mon, 23 Nov 2009 17:57:07 +0300
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
37:c2e7f7c96bcd 38:d660fb38b7cc
1 package IMPL::DOM::Transform;
2 use strict;
3 use warnings;
4
5 use base qw(IMPL::Transform);
6
7 __PACKAGE__->PassThroughArgs;
8
9 sub GetClassForObject {
10 my ($this,$object) = @_;
11
12 if (my $class = ref $object) {
13 if (UNIVERSAL::isa($object,'IMPL::DOM::Node')) {
14 return $object->nodeName;
15 } else {
16 return $class;
17 }
18 } else {
19 return undef;
20 }
21 }
22
23 1;
24
25 __END__
26
27 =pod
28
29 =head1 DESCRIPTION
30
31 Преобразование для DOM документа
32
33 =cut