home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Error.pm < prev    next >
Encoding:
Perl POD Document  |  2002-06-18  |  6.3 KB  |  209 lines
  1. package YAML::Error;
  2. use strict;
  3. use YAML;
  4. use Carp;
  5.  
  6. my ($error_messages, %line_adjust);
  7.  
  8. sub new {
  9.     my ($class, $code, $line, $document, @args) = @_;
  10.     croak "No such YAML error message: '$code'" 
  11.       unless defined $error_messages->{$code}; 
  12.     croak "Invalid YAML error code: $code\n"
  13.       unless $code =~ 
  14.         /^YAML_(PARSE|LOAD|DUMP|EMIT)_(ERR|WARN|USAGE)(_\w+)?$/;
  15.     my ($operation, $severity) = ($1, $2);
  16.     my $msg = sprintf($error_messages->{$code}, @args);
  17.     $msg =~ s/\\n/\n/g;
  18.     $class = 'YAML::Warning' if $severity eq 'WARN';
  19.     my $self = bless { code => $code,
  20.                        msg => $msg, 
  21.                  }, $class;  
  22.     if ($severity ne 'USAGE' and 
  23.         $operation eq 'LOAD' or 
  24.         $operation eq 'PARSE'
  25.        ) {
  26.         $self->{line} = $line - ($line_adjust{$code} || 0);
  27.         $self->{document} = $document if defined $document;
  28.     }
  29.     $self
  30. }
  31.  
  32. sub msg { $_[0]->{msg} }
  33.  
  34. sub dump {
  35.     my ($self) = @_;
  36.     local $YAML::Indent = 4;
  37.     local $YAML::UseHeader = 1;
  38.     local $YAML::UseVersion = 0;
  39.     local $YAML::SortKeys = [qw(code msg line document)];
  40.     YAML::Dump($self)
  41. } 
  42.  
  43. %$error_messages = map {s/^\s+//;$_} split "\n", <<'...';
  44. YAML_PARSE_ERR_BAD_CHARS
  45.   Invalid characters in stream. This parser only supports printable ASCII
  46. YAML_PARSE_ERR_NO_FINAL_NEWLINE
  47.   Stream does not end with newline character
  48. YAML_PARSE_ERR_BAD_MAJOR_VERSION
  49.   Can't parse a %s document with a 1.0 parser
  50. YAML_PARSE_WARN_BAD_MINOR_VERSION
  51.   Parsing a %s document with a 1.0 parser
  52. YAML_PARSE_WARN_MULTIPLE_DIRECTIVES
  53.   '%s directive used more than once'
  54. YAML_PARSE_ERR_TEXT_AFTER_INDICATOR
  55.   No text allowed after indicator
  56. YAML_PARSE_ERR_NO_ANCHOR
  57.   No anchor for alias '*%s'
  58. YAML_PARSE_ERR_NO_SEPARATOR
  59.   Expected separator '---'
  60. YAML_PARSE_ERR_SINGLE_LINE
  61.   Couldn't parse single line value
  62. YAML_PARSE_ERR_BAD_ANCHOR
  63.   Invalid anchor
  64. YAML_DUMP_ERR_INVALID_INDENT
  65.   Invalid Indent width specified: '%s'
  66. YAML_LOAD_USAGE
  67.   usage: YAML::Load($yaml_stream_scalar)
  68. YAML_PARSE_ERR_BAD_NODE
  69.   Can't parse node
  70. YAML_PARSE_ERR_BAD_EXPLICIT
  71.   Unsupported explicit transfer: '%s'
  72. YAML_DUMP_USAGE_DUMPCODE
  73.   Invalid value for DumpCode: '%s'
  74. YAML_LOAD_ERR_FILE_INPUT
  75.   Couldn't open %s for input:\n%s
  76. YAML_DUMP_ERR_FILE_CONCATENATE
  77.   Can't concatenate to YAML file %s
  78. YAML_DUMP_ERR_FILE_OUTPUT
  79.   Couldn't open %s for output:\n%s
  80. YAML_DUMP_ERR_NO_HEADER
  81.   With UseHeader=0, the node must be a plain hash or array
  82. YAML_DUMP_WARN_BAD_NODE_TYPE
  83.   Can't perform serialization for node type %s
  84. YAML_EMIT_WARN_KEYS
  85.   Encountered a problem with 'keys':\n%s
  86. YAML_DUMP_WARN_DEPARSE_FAILED
  87.   Deparse failed for CODE reference
  88. YAML_DUMP_WARN_CODE_DUMMY
  89.   Emitting dummy subroutine for CODE reference
  90. YAML_PARSE_ERR_MANY_EXPLICIT
  91.   More than one explicit transfer
  92. YAML_PARSE_ERR_MANY_IMPLICIT
  93.   More than one implicit request
  94. YAML_PARSE_ERR_MANY_ANCHOR
  95.   More than one anchor
  96. YAML_PARSE_ERR_ANCHOR_ALIAS
  97.   Can't define both an anchor and an alias
  98. YAML_PARSE_ERR_BAD_ALIAS
  99.   Invalid alias
  100. YAML_PARSE_ERR_MANY_ALIAS
  101.   More than one alias
  102. YAML_LOAD_ERR_NO_CONVERT
  103.   Can't convert implicit '%s' node to explicit '%s' node
  104. YAML_LOAD_ERR_NO_DEFAULT_VALUE
  105.   No default value for '%s' explicit transfer
  106. YAML_LOAD_ERR_NON_EMPTY_STRING
  107.   Only the empty string can be converted to a '%s'
  108. YAML_LOAD_ERR_BAD_MAP_TO_SEQ
  109.   Can't transfer map as sequence. Non numeric key '%s' encountered.
  110. YAML_DUMP_ERR_BAD_GLOB
  111.   '%s' is an invalid value for Perl glob
  112. YAML_DUMP_ERR_BAD_REGEXP
  113.   '%s' is an invalid value for Perl Regexp
  114. YAML_DUMP_WARN_STORE
  115.   YAML::Store has been deprecated in favor of YAML::Dump
  116. YAML_LOAD_ERR_BAD_STR_TO_INT
  117.   Can't transfer string to integer
  118. YAML_LOAD_ERR_BAD_STR_TO_DATE
  119.   Can't transfer string to date object
  120. YAML_LOAD_ERR_BAD_STR_TO_TIME
  121.   Can't transfer string to time object
  122. YAML_LOAD_ERR_BAD_MAP_ELEMENT
  123.   Invalid element in map
  124. YAML_LOAD_WARN_DUPLICATE_KEY
  125.   Duplicate map key found. Ignoring.
  126. YAML_LOAD_ERR_BAD_SEQ_ELEMENT
  127.   Invalid element in sequence
  128. YAML_PARSE_ERR_INLINE_MAP
  129.   Can't parse inline map
  130. YAML_PARSE_ERR_INLINE_SEQUENCE
  131.   Can't parse inline sequence
  132. YAML_PARSE_ERR_BAD_DOUBLE
  133.   Can't parse double quoted string
  134. YAML_PARSE_ERR_BAD_SINGLE
  135.   Can't parse single quoted string
  136. YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
  137.   Can't parse inline implicit value '%s'
  138. YAML_PARSE_ERR_BAD_IMPLICIT
  139.   Unrecognized implicit value '%s'
  140. YAML_PARSE_ERR_INDENTATION
  141.   Error. Invalid indentation level
  142. YAML_PARSE_ERR_INCONSISTENT_INDENTATION
  143.   Inconsistent indentation level
  144. YAML_LOAD_WARN_UNRESOLVED_ALIAS
  145.   Can't resolve alias *%s
  146. YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
  147.   No 'REGEXP' element for Perl regexp
  148. YAML_LOAD_WARN_BAD_REGEXP_ELEM
  149.   Unknown element '%s' in Perl regexp
  150. YAML_LOAD_WARN_REGEXP_CREATE
  151.   Couldn't create regexp qr(%s)%s: %s
  152. YAML_LOAD_WARN_GLOB_NAME
  153.   No 'NAME' element for Perl glob
  154. YAML_LOAD_WARN_PARSE_CODE
  155.   Couldn't parse Perl code scalar: %s
  156. YAML_LOAD_WARN_CODE_DEPARSE
  157.   Won't parse Perl code unless $YAML::LoadCode is set
  158. YAML_EMIT_ERR_BAD_LEVEL
  159.   Internal Error: Bad level detected
  160. YAML_PARSE_WARN_AMBIGUOUS_TAB
  161.   Amibiguous tab converted to spaces
  162. YAML_LOAD_WARN_BAD_GLOB_ELEM
  163.   Unknown element '%s' in Perl glob
  164. YAML_PARSE_ERR_ZERO_INDENT
  165.   Can't use zero as an indentation width
  166. YAML_LOAD_WARN_GLOB_IO
  167.   Can't load an IO filehandle. Yet!!!
  168. ...
  169.  
  170. %line_adjust = map {($_, 1)} 
  171.   qw(YAML_PARSE_ERR_BAD_MAJOR_VERSION
  172.      YAML_PARSE_WARN_BAD_MINOR_VERSION 
  173.      YAML_PARSE_ERR_TEXT_AFTER_INDICATOR 
  174.      YAML_PARSE_ERR_NO_ANCHOR 
  175.      YAML_PARSE_ERR_MANY_EXPLICIT
  176.      YAML_PARSE_ERR_MANY_IMPLICIT
  177.      YAML_PARSE_ERR_MANY_ANCHOR
  178.      YAML_PARSE_ERR_ANCHOR_ALIAS
  179.      YAML_PARSE_ERR_BAD_ALIAS
  180.      YAML_PARSE_ERR_MANY_ALIAS
  181.      YAML_LOAD_ERR_NO_CONVERT
  182.      YAML_LOAD_ERR_NO_DEFAULT_VALUE
  183.      YAML_LOAD_ERR_NON_EMPTY_STRING
  184.      YAML_LOAD_ERR_BAD_MAP_TO_SEQ
  185.      YAML_LOAD_ERR_BAD_STR_TO_INT
  186.      YAML_LOAD_ERR_BAD_STR_TO_DATE
  187.      YAML_LOAD_ERR_BAD_STR_TO_TIME
  188.      YAML_LOAD_WARN_DUPLICATE_KEY
  189.      YAML_PARSE_ERR_INLINE_MAP
  190.      YAML_PARSE_ERR_INLINE_SEQUENCE
  191.      YAML_PARSE_ERR_BAD_DOUBLE
  192.      YAML_PARSE_ERR_BAD_SINGLE
  193.      YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
  194.      YAML_PARSE_ERR_BAD_IMPLICIT
  195.      YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
  196.      YAML_LOAD_WARN_BAD_REGEXP_ELEM
  197.      YAML_LOAD_WARN_REGEXP_CREATE
  198.      YAML_LOAD_WARN_GLOB_NAME
  199.      YAML_LOAD_WARN_PARSE_CODE
  200.      YAML_LOAD_WARN_CODE_DEPARSE
  201.      YAML_LOAD_WARN_BAD_GLOB_ELEM
  202.      YAML_PARSE_ERR_ZERO_INDENT
  203.     );
  204.  
  205. package YAML::Warning;
  206. use base 'YAML::Error';
  207.  
  208. 1;
  209.