File Coverage

blib/lib/XML/RSS/LibXML/Namespaces.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	28	32	87.5

# $Id$
#
# Copyright (c) 2005-2007 Daisuke Maki
# All rights reserved.

package XML::RSS::LibXML::Namespaces;
use strict;
use warnings;
use base qw(Exporter);
use vars qw(@EXPORT_OK);
my %KnownNamespaces;
my %RevKnownNamespaces;

BEGIN
{
    %KnownNamespaces = (
        rdf     => "http://www.w3.org/1999/02/22-rdf-syntax-ns#",
        dc      => "http://purl.org/dc/elements/1.1/",
        syn     => "http://purl.org/rss/1.0/modules/syndication/",
        admin   => "http://webns.net/mvcb/",
        content => "http://purl.org/rss/1.0/modules/content/",
        cc      => "http://web.resource.org/cc/",
        taxo    => "http://purl.org/rss/1.0/modules/taxonomy/",
        rss20   => "http://backend.userland.com/rss2", # really a dummy
        rss10   => "http://purl.org/rss/1.0/",
        rss09   => "http://my.netscape.com/rdf/simple/0.9/",
    );
    %RevKnownNamespaces = map { ($KnownNamespaces{$_} => $_) } keys %KnownNamespaces;

    my %constants;
    while (my ($prefix, $ns) = each %KnownNamespaces) {
        $constants{'NS_' . uc($prefix)} = $ns;
    }

    require constant;
    constant->import(\%constants);

    @EXPORT_OK = keys %constants;
}

sub lookup_prefix { $RevKnownNamespaces{$_[0]} }
sub lookup_uri    { $KnownNamespaces{$_[0]} }

1;

__END__