Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Catalog.pm	12.61 KB	-rw-r--r--	2014-05-27 22:03:21	Edit Del
CommonNS.pm	5.46 KB	-rw-r--r--	2007-02-16 03:46:11	Edit Del
DOM	-	drwxr-xr-x	2022-02-23 11:28:41	Del
DOM.pm	108.15 KB	-rw-r--r--	2016-09-21 12:35:35	Edit Del
Dumper.pm	25.91 KB	-rw-r--r--	2006-04-05 20:14:54	Edit Del
Element.pm	7.06 KB	-rw-r--r--	2022-01-11 15:53:29	Edit Del
Entities	-	drwxr-xr-x	2022-02-23 11:31:17	Del
Entities.pm	4.82 KB	-rw-r--r--	2015-08-17 12:53:42	Edit Del
Filter	-	drwxr-xr-x	2022-02-23 11:28:21	Del
Generator	-	drwxr-xr-x	2022-02-23 11:31:00	Del
Generator.pm	45.01 KB	-rw-r--r--	2011-07-15 12:45:30	Edit Del
Handler	-	drwxr-xr-x	2022-02-23 11:28:41	Del
Hash	-	drwxr-xr-x	2022-02-23 11:31:14	Del
Namespace.pm	8.61 KB	-rw-r--r--	2005-08-22 14:06:55	Edit Del
NamespaceFactory.pm	2.77 KB	-rw-r--r--	2014-07-03 04:57:10	Edit Del
NamespaceSupport.pm	19.48 KB	-rw-r--r--	2017-03-30 20:46:39	Edit Del
Parser	-	drwxr-xr-x	2022-02-23 11:31:17	Del
RSS	-	drwxr-xr-x	2022-02-23 11:30:56	Del
RSS.pm	59.85 KB	-rw-r--r--	2019-08-24 08:54:12	Edit Del
RegExp.pm	5.92 KB	-rw-r--r--	2012-03-26 17:29:08	Edit Del
SAX	-	drwxr-xr-x	2022-02-23 11:28:21	Del
SAX.pm	9.05 KB	-rw-r--r--	2018-02-15 09:45:06	Edit Del
SemanticDiff	-	drwxr-xr-x	2022-02-23 11:28:21	Del
SemanticDiff.pm	22.43 KB	-rw-r--r--	2019-09-03 15:05:34	Edit Del
Simple	-	drwxr-xr-x	2022-02-23 11:00:52	Del
Simple.pm	98.77 KB	-rw-r--r--	2018-03-18 03:18:27	Edit Del
Stream	-	drwxr-xr-x	2022-02-23 11:30:00	Del
Stream.pm	108.46 KB	-rw-r--r--	2021-02-03 14:59:31	Edit Del
TokeParser.pm	20.19 KB	-rw-r--r--	2021-04-12 06:45:33	Edit Del
TreeBuilder.pm	14.6 KB	-rw-r--r--	2022-01-11 15:53:29	Edit Del
TreePP.pm	39.33 KB	-rw-r--r--	2014-11-17 04:29:59	Edit Del
Writer.pm	41.64 KB	-r--r--r--	2014-06-05 13:56:29	Edit Del
XPath	-	drwxr-xr-x	2022-02-23 11:27:06	Del
XPath.pm	18.08 KB	-rw-r--r--	2017-07-28 16:18:00	Edit Del
XPathEngine	-	drwxr-xr-x	2022-02-23 11:28:21	Del
XPathEngine.pm	36.48 KB	-rw-r--r--	2013-05-13 08:05:16	Edit Del

Editing: NamespaceFactory.pm (2.77 KB)

package XML::NamespaceFactory;
use strict;
use Carp;

# ABSTRACT: Simple factory objects for SAX namespaced names.
our $VERSION = '1.02'; # VERSION

use vars qw($VERSION $AUTOLOAD);
use overload '""'  => \&toString,
			 'cmp' => \&cmpString,
			 '%{}' => \&toHash;

sub new {
	my $class = ref($_[0]) ? ref(shift) : shift;
	my $ns = shift;
	confess "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;

__END__

=pod

=encoding UTF-8

=head1 NAME

XML::NamespaceFactory - Simple factory objects for SAX namespaced names.

=head1 VERSION

version 1.02

=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 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 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 AUTHORS

=over 4

=item *

Robin Berjon <robin@knowscape.com>

=item *

Chris Prather <chris@prather.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Robin Berjon.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut