File Coverage

blib/lib/XML/Mini.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	2	4	50.0
condition			n/a
subroutine	6	7	85.7
pod	3	4	75.0
total	32	41	78.0

package XML::Mini;
use strict;
$^W = 1;

use vars qw (
	     $AutoEscapeEntities
	     $AutoSetParent
	     $AvoidLoops
	     $CaseSensitive
	     $Debug
	     $IgnoreWhitespaces
	     $NoWhiteSpaces
	     $CheckXMLBeforeParsing
	     $DieOnBadXML
	     $VERSION
	     $IgnoreDeepRecursionWarnings
	     );

$VERSION = '1.38';

$AvoidLoops = 0;
$AutoEscapeEntities = 1;
$Debug = 0;
$IgnoreWhitespaces = 1;
$CaseSensitive = 0;
$AutoSetParent = 0;
$NoWhiteSpaces = -999;
$CheckXMLBeforeParsing = 1;
$DieOnBadXML = 1;

$IgnoreDeepRecursionWarnings = 1;

sub Log
{
    my $class = shift;

    print STDERR "XML::Mini LOG MESSAGE:" ;
    print STDERR join(" ", @_) . "\n";
}

sub Error
{
    my $class = shift;

	my $errMsg =  "XML::Mini Error MESSAGE:" . join(" ", @_) . "\n";

    print STDERR $errMsg;

	die $errMsg;
}

sub escapeEntities
{
    my $class = shift;
    my $toencode = shift;

    return undef unless (defined $toencode);

    $toencode=~s/&/&/g;
    $toencode=~s/\"/"/g;
    $toencode=~s/>/>/g;
    $toencode=~s/
    $toencode=~s/([\xA0-\xFF])/"&#".ord($1).";"/ge;
    return $toencode;
}

sub ignoreDeepRecursionWarning {

	# we do deep recursion... but it's ok, stop warning...
	$SIG{__WARN__} = sub {
                        my $msg = shift;
                        print STDERR $msg if ($msg !~ /Deep recursion/);
	};
}



1;
__END__