File Coverage

blib/lib/XML/Char.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	41	42	97.6

package XML::Char;

use utf8;

=encoding UTF-8

=head1 NAME

XML::Char - validate characters for XML

=head1 SYNOPSIS

    use XML::Char;
    if (not XML::Char->valid("bell ".chr(7))) {
        die 'no way to store this string directly to XML';
    }

    use utf8;
    use XML::Char;
    if (XML::Char->valid("UTF8 je pořádný peklo")) {
        print "fuf, we are fine\n";
    }

=head1 DESCRIPTION

For me it was kind of a surprised to learn that C is a valid UTF-8
character. All of the 0-0x7F are...

    Emo: well it's not because that they are valid utf-8 characters that you have to expect XML to accept them

Well of course not, now I know :-)

L defines which characters XML processors MUST accept:

    [2]   	Char	   ::=   	#x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
    /* any Unicode character, excluding the surrogate blocks, FFFE, and FFFF. */

This module validates if a given string meets this criteria. In addition
the string has to be a Perl UTF-8 string (C - see L).

=cut

use 5.006;
use strict;
use warnings;

our $VERSION = '0.03';

use parent qw(DynaLoader);

use Exporter 'import';
our @EXPORT_OK = qw(
);

__PACKAGE__->bootstrap;

=head2 valid($value)

Returns true or false if C<$value> consists of valid UTF-8 XML characters.

=cut

sub valid {
    my ($self, $value);
    if (@_ < 2) {
        $self = __PACKAGE__;
        $value = shift @_;
    }
    else {
        $self  = shift @_;
        $value = shift @_;
    }

    die 'bad usage'
        if not eval { $self->can('valid') };

    # undef is valid
    return 1
        if not defined $value;

    return _valid_xml_string($value);
}

1;

__END__