XML-NamespaceFactory-1.00/000755 000765 000024 00000000000 11361107564 016302 5ustar00perigrinstaff000000 000000 XML-NamespaceFactory-1.00/Changes000644 000765 000024 00000000317 11361107331 017566 0ustar00perigrinstaff000000 000000 Revision history for Perl extension XML::NamespaceFactory. 1.0 2010-04-13 - re-release original version as 1.0 since after 7 years it's probably stable 0.01 2003-06-29 15:14:34 - original version XML-NamespaceFactory-1.00/Makefile.PL000644 000765 000024 00000000407 11361107510 020244 0ustar00perigrinstaff000000 000000 use ExtUtils::MakeMaker; WriteMakefile( 'NAME' => 'XML::NamespaceFactory', 'VERSION_FROM' => 'NamespaceFactory.pm', 'PREREQ_PM' => {}, 'ABSTRACT_FROM' => 'NamespaceFactory.pm', 'AUTHOR' => 'Robin Berjon ', ); XML-NamespaceFactory-1.00/MANIFEST000644 000765 000024 00000000252 11361107564 017432 0ustar00perigrinstaff000000 000000 Changes Makefile.PL MANIFEST This list of files NamespaceFactory.pm README t/05-basics.t META.yml Module meta-data (added by MakeMaker) XML-NamespaceFactory-1.00/META.yml000644 000765 000024 00000001064 11361107564 017554 0ustar00perigrinstaff000000 000000 --- #YAML:1.0 name: XML-NamespaceFactory version: 1.00 abstract: Simple factory objects for SAX namespaced names author: - Robin Berjon license: unknown distribution_type: module configure_requires: ExtUtils::MakeMaker: 0 build_requires: ExtUtils::MakeMaker: 0 requires: {} no_index: directory: - t - inc generated_by: ExtUtils::MakeMaker version 6.56 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 XML-NamespaceFactory-1.00/NamespaceFactory.pm000644 000765 000024 00000005127 11361107463 022067 0ustar00perigrinstaff000000 000000 package XML::NamespaceFactory; use strict; use vars qw($VERSION $AUTOLOAD); $VERSION = '1.00'; use overload '""' => \&toString, 'cmp' => \&cmpString, '%{}' => \&toHash; sub new { my $class = ref($_[0]) ? ref(shift) : shift; my $ns = shift; die "Parameter \$ns required." unless defined $ns; return bless \$ns; } sub AUTOLOAD { $AUTOLOAD =~ s/^.*::([^:]+)/$1/; return "{$_[0]}$AUTOLOAD"; } # overloaders sub toString { return ${$_[0]}; } sub toHash { tie my %h, 'XML::NamespaceFactory::TiedHash', $_[0]; return \%h; } sub cmpString { my $ns = shift; my $cmp = shift; my $rev = shift; my $res = ( $$ns eq $cmp ) ? 0 : 1; return $rev ? - $res : $res; } package XML::NamespaceFactory::TiedHash; sub TIEHASH { my $class = shift; my $ns = shift; return bless [$ns], $class; } sub FETCH { my $self = shift; my $key = shift; return "{" . $self->[0] . "}" . $key; } 1; =pod =head1 NAME XML::NamespaceFactory - Simple factory objects for SAX namespaced names =head1 SYNOPSIS use XML::NamespaceFactory; my $FOO = XML::NamespaceFactory->new('http://foo.org/ns/'); print $FOO->title; # {http://foo.org/ns/}title print $FOO->{'bar.baz-toto'}; # {http://foo.org/ns/}bar.baz-toto =head1 ABSTRACT A number of accessors for namespaces in SAX use the JClark notation, {namespace}local-name. Those are a bit painful to type repeatedly, and somewhat error-prone as hash keys. This module makes life easier. =head1 DESCRIPTION Simply create a new XML::NamespaceFactory object with the namespace you wish to use as its single parameter. If you wish to use the empty namespace, simply pass in an empty string (but undef will not do). Then, when you want to get a JClark name, call a method on that object the name of which is the local name you wish to have. It'll return the JClark notation for that local name in your namespace. Unfortunately, some local names legal in XML are not legal in Perl. To circumvent this, you can use the hash notation in which you access a key on the object the name of which is the local name you wish to have. This will work just as the method call name but will accept more characters. Note that it does not check that the name you ask for is a valid XML name. This form is more general but slower. If this is not clear, hopefully the SYNOPSIS should help :) =head1 MAINTAINER Chris Prather =head1 AUTHOR Robin Berjon based on a suggestion by Ken MacLeod. =head1 COPYRIGHT AND LICENSE Copyright 2003-2010 by Robin Berjon This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut XML-NamespaceFactory-1.00/README000644 000765 000024 00000000623 07677566510 017202 0ustar00perigrinstaff000000 000000 XML/NamespaceFactory version 0.01 ================================= Simple factory objects for SAX namespaced names. INSTALLATION To install this module type the following: perl Makefile.PL make make test make install COPYRIGHT AND LICENCE Copyright (C) 2003 Robin Berjon This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. XML-NamespaceFactory-1.00/t/000755 000765 000024 00000000000 11361107564 016545 5ustar00perigrinstaff000000 000000 XML-NamespaceFactory-1.00/t/05-basics.t000644 000765 000024 00000000517 07677571255 020444 0ustar00perigrinstaff000000 000000 use Test; BEGIN { plan tests => 8 }; use XML::NamespaceFactory; ok(1); my $ns = "http://foo.org/ns/"; my $FOO = XML::NamespaceFactory->new($ns); ok(1); ok( $ns eq "$FOO" ); ok( $ns eq $FOO ); ok( "hahaha" ne "$FOO" ); ok( "hahaha" ne $FOO ); ok( $FOO->title eq "{$ns}title" ); ok( $FOO->{'bar.baz-toto'} eq "{$ns}bar.baz-toto" );