File: Utils.pm

package info (click to toggle)
libtm-perl 1.53-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 2,780 kB
  • ctags: 594
  • sloc: perl: 34,611; sh: 377; makefile: 50
file content (29 lines) | stat: -rw-r--r-- 576 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
package TM::Utils;

sub xmlify_hash {
    my $hash = shift;

    use XML::LibXML::SAX::Builder;
    my $builder = new XML::LibXML::SAX::Builder;
    use TM::Utils::TreeWalker;
    my $walker  = new TM::Utils::TreeWalker (Handler => $builder);
    $walker->walk ($hash);

    return $builder->result()->toString;
}

sub is_xml {
    my $s = shift;
    use XML::LibXML;
    my $parser = XML::LibXML->new();

    eval {
	my $doc = $parser->parse_string ($s);
    }; $@ ? 0 : 1;
}

our $VERSION  = '1.04';
our $REVISION = '$Id: Utils.pm,v 1.5 2006/11/13 08:02:33 rho Exp $';


1;