/usr/share/perl5/TM/Utils.pm is in libtm-perl 1.56-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|