common/tools/raptor/XML/SAX/DocumentLocator.pm
changeset 923 5ccf9d5ab663
parent 922 996297fad800
parent 907 bab81256b297
child 924 a5ed0e6ca679
--- a/common/tools/raptor/XML/SAX/DocumentLocator.pm	Thu Mar 11 13:20:26 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,134 +0,0 @@
-# $Id: DocumentLocator.pm,v 1.3 2005/10/14 20:31:20 matt Exp $
-
-package XML::SAX::DocumentLocator;
-use strict;
-
-sub new {
-    my $class = shift;
-    my %object;
-    tie %object, $class, @_;
-
-    return bless \%object, $class;
-}
-
-sub TIEHASH {
-    my $class = shift;
-    my ($pubmeth, $sysmeth, $linemeth, $colmeth, $encmeth, $xmlvmeth) = @_;
-    return bless { 
-        pubmeth => $pubmeth,
-        sysmeth => $sysmeth,
-        linemeth => $linemeth,
-        colmeth => $colmeth,
-        encmeth => $encmeth,
-        xmlvmeth => $xmlvmeth,
-    }, $class;
-}
-
-sub FETCH {
-    my ($self, $key) = @_;
-    my $method;
-    if ($key eq 'PublicId') {
-        $method = $self->{pubmeth};
-    }
-    elsif ($key eq 'SystemId') {
-        $method = $self->{sysmeth};
-    }
-    elsif ($key eq 'LineNumber') {
-        $method = $self->{linemeth};
-    }
-    elsif ($key eq 'ColumnNumber') {
-        $method = $self->{colmeth};
-    }
-    elsif ($key eq 'Encoding') {
-        $method = $self->{encmeth};
-    }
-    elsif ($key eq 'XMLVersion') {
-        $method = $self->{xmlvmeth};
-    }
-    if ($method) {
-        my $value = $method->($key);
-        return $value;
-    }
-    return undef;
-}
-
-sub EXISTS {
-    my ($self, $key) = @_;
-    if ($key =~ /^(PublicId|SystemId|LineNumber|ColumnNumber|Encoding|XMLVersion)$/) {
-        return 1;
-    }
-    return 0;
-}
-
-sub STORE {
-    my ($self, $key, $value) = @_;
-}
-
-sub DELETE {
-    my ($self, $key) = @_;
-}
-
-sub CLEAR {
-    my ($self) = @_;
-}
-
-sub FIRSTKEY {
-    my ($self) = @_;
-    # assignment resets.
-    $self->{keys} = {
-        PublicId => 1,
-        SystemId => 1,
-        LineNumber => 1,
-        ColumnNumber => 1,
-        Encoding => 1,
-        XMLVersion => 1,
-    };
-    return each %{$self->{keys}};
-}
-
-sub NEXTKEY {
-    my ($self, $lastkey) = @_;
-    return each %{$self->{keys}};
-}
-
-1;
-__END__
-
-=head1 NAME
-
-XML::SAX::DocumentLocator - Helper class for document locators
-
-=head1 SYNOPSIS
-
-  my $locator = XML::SAX::DocumentLocator->new(
-      sub { $object->get_public_id },
-      sub { $object->get_system_id },
-      sub { $reader->current_line },
-      sub { $reader->current_column },
-      sub { $reader->get_encoding },
-      sub { $reader->get_xml_version },
-  );
-
-=head1 DESCRIPTION
-
-This module gives you a tied hash reference that calls the
-specified closures when asked for PublicId, SystemId,
-LineNumber and ColumnNumber.
-
-It is useful for writing SAX Parsers so that you don't have
-to constantly update the line numbers in a hash reference on
-the object you pass to set_document_locator(). See the source
-code for XML::SAX::PurePerl for a usage example.
-
-=head1 API
-
-There is only 1 method: C<new>. Simply pass it a list of
-closures that when called will return the PublicId, the
-SystemId, the LineNumber, the ColumnNumber, the Encoding 
-and the XMLVersion respectively.
-
-The closures are passed a single parameter, the key being
-requested. But you're free to ignore that.
-
-=cut
-