Message/DOM/DOMLocator.pm

package Message::DOM::DOMLocator;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::IF::DOMLocator';

## |DOMLocator| attributes

for (qw/byte_offset column_number line_number utf16_offset utf32_offset/) {
  eval qq{
    sub $_ (\$) {
      return defined \$_[0]->{$_} ? \$_[0]->{$_} : -1;
    } # $_
  };
}

sub related_node ($) {
  return $_[0]->{related_node};
} # related_node

sub uri ($) {
  return $_[0]->{uri};
} # uri

## NOTE: |utf32Offset| is a manakai extension.

## ISSUE: Document the reason not utf_32 or utf_16 in Perl binding doc.

package Message::IF::DOMLocator;
push our @ISA, 'Message::Util::Error';

=head1 LICENSE

Copyright 2007 Wakaba <[email protected]>

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

=cut

1;
## $Date: 2007/06/20 13:41:16 $
1	wakaba	1.1	package Message::DOM::DOMLocator;
2			use strict;
3			our $VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4			push our @ISA, 'Message::IF::DOMLocator';
5
6			## \|DOMLocator\| attributes
7
8			for (qw/byte_offset column_number line_number utf16_offset utf32_offset/) {
9			eval qq{
10			sub $_ (\$) {
11			return defined \$_[0]->{$_} ? \$_[0]->{$_} : -1;
12			} # $_
13			};
14			}
15
16			sub related_node ($) {
17			return $_[0]->{related_node};
18			} # related_node
19
20			sub uri ($) {
21			return $_[0]->{uri};
22			} # uri
23
24			## NOTE: \|utf32Offset\| is a manakai extension.
25
26			## ISSUE: Document the reason not utf_32 or utf_16 in Perl binding doc.
27
28			package Message::IF::DOMLocator;
29			push our @ISA, 'Message::Util::Error';
30
31			=head1 LICENSE
32
33			Copyright 2007 Wakaba <[email protected]>
34
35			This program is free software; you can redistribute it and/or
36			modify it under the same terms as Perl itself.
37
38			=cut
39
40			1;
41			## $Date: 2007/06/20 13:41:16 $