Message/DOM/DOMError.pm

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

## |DOMError| constants

## ErrorSeveriry
sub SEVERITY_WARNING () { 1 }
sub SEVERITY_ERROR () { 2 }
sub SEVERITY_FATAL_ERROR () { 3 }

sub ___error_def () {+{
}} # ___error_def

# sub _FORMATTER_PACKAGE_ { $_[0]->{-def}->{manakai_formatter_package} }

## |DOMError| attributes

sub location ($) {
  require Message::DOM::DOMLocator;
  return bless $_[0]->{location} ||= {}, 'Message::DOM::DOMLocator';
} # location

## NOTE: In manakai, this attribute returns an error message
## string written in the |i-default| language.  Note that 
## it is same as |text| attribute.
sub message ($) {
  goto &{$_[0]->can ('text')};
} # message

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

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

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

## type - defined in |Message::Util::Error|.

## |DOMError| manakai's Perl Binding method

## ISSUE: Document this in the spec.

use overload
    '""' => 'stringify',
    fallback => 1;

sub stringify ($) {
  local $Error::Depth = $Error::Depth + 1;
  my $r = '';

  my $loc = $_[0]->location;
  my $uri = $loc->uri;
  $r .= " <$uri>" if defined $uri;

  my $line = $loc->line_number;
  $r .= " Line $line " if $line >= 0;

  my $column = $loc->column_number;
  $r .= " Column $column " if $column >= 0;

  substr ($r, 0, 1) = '';
  $r .= ': ' if length $r;
  
  $r .= $_[0]->SUPER::stringify;
  return $r;
} # stringify

## ISSUE: Document that a |DOMErrorHandler| MUST be a CODE reference
## in the Perl DOM Binding spec.

package Message::IF::DOMError;
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	package Message::DOM::DOMError;
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::Util::Error', 'Message::IF::DOMError';
5	require Message::Util::Error;
6
7	## \|DOMError\| constants
8
9	## ErrorSeveriry
10	sub SEVERITY_WARNING () { 1 }
11	sub SEVERITY_ERROR () { 2 }
12	sub SEVERITY_FATAL_ERROR () { 3 }
13
14	sub ___error_def () {+{
15	}} # ___error_def
16
17	# sub _FORMATTER_PACKAGE_ { $_[0]->{-def}->{manakai_formatter_package} }
18
19	## \|DOMError\| attributes
20
21	sub location ($) {
22	require Message::DOM::DOMLocator;
23	return bless $_[0]->{location} \|\|= {}, 'Message::DOM::DOMLocator';
24	} # location
25
26	## NOTE: In manakai, this attribute returns an error message
27	## string written in the \|i-default\| language. Note that
28	## it is same as \|text\| attribute.
29	sub message ($) {
30	goto &{$_[0]->can ('text')};
31	} # message
32
33	sub related_data ($) {
34	return $_[0]->{related_data};
35	} # related_data
36
37	sub related_exception ($) {
38	return $_[0]->{related_exception};
39	} # related_exception
40
41	sub severity ($) {
42	return $_[0]->{-def}->{severity};
43	} # severity
44
45	## type - defined in \|Message::Util::Error\|.
46
47	## \|DOMError\| manakai's Perl Binding method
48
49	## ISSUE: Document this in the spec.
50
51	use overload
52	'""' => 'stringify',
53	fallback => 1;
54
55	sub stringify ($) {
56	local $Error::Depth = $Error::Depth + 1;
57	my $r = '';
58
59	my $loc = $_[0]->location;
60	my $uri = $loc->uri;
61	$r .= " <$uri>" if defined $uri;
62
63	my $line = $loc->line_number;
64	$r .= " Line $line " if $line >= 0;
65
66	my $column = $loc->column_number;
67	$r .= " Column $column " if $column >= 0;
68
69	substr ($r, 0, 1) = '';
70	$r .= ': ' if length $r;
71
72	$r .= $_[0]->SUPER::stringify;
73	return $r;
74	} # stringify
75
76	## ISSUE: Document that a \|DOMErrorHandler\| MUST be a CODE reference
77	## in the Perl DOM Binding spec.
78
79	package Message::IF::DOMError;
80	push our @ISA, 'Message::Util::Error';
81
82	=head1 LICENSE
83
84	Copyright 2007 Wakaba <[email protected]>
85
86	This program is free software; you can redistribute it and/or
87	modify it under the same terms as Perl itself.
88
89	=cut
90
91	1;
92	## $Date: 2007/06/20 13:41:16 $