Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[S32::Exception] remove redundant error; harmonize error messages to …

…be easier copy&pastable
  • Loading branch information...
commit 54584ca2253bd9de53a37e0ef0704a23982816dc 1 parent 7ceaeb9
@moritz moritz authored
Showing with 7 additions and 12 deletions.
  1. +7 −12 S32-setting-library/Exception.pod
View
19 S32-setting-library/Exception.pod
@@ -18,7 +18,7 @@ Authors of previous versions of this document:
Created: 26 Feb 2009
Last Modified: 4 June 2012
- Version: 11
+ Version: 12
The document is a draft.
@@ -526,23 +526,18 @@ Common role for all syntax errors.
=head3 X::Syntax::Obsolete
+Thrown when obsolete (mostly Perl 5) syntax is detected.
+
role X::Syntax::Obsolete does X::Syntax {
has $.old;
has $.replacement; # cannot call it 'new',
# would collide with constructor
- has $.when = 'in Perl 6'
- }
-
-Message defaults to C<< Unsupported use of $.old; $.when please use $.replacement >>.
-
-=head3 X::Syntax::BadInfix
-
- role X::Syntax::BadInfix does X::Syntax {
- has $.bad;
+ has $.when = 'in Perl 6';
+ method message() {
+ "Unsupported use of $.old; $.when please use $.replacement";
+ }
}
-Message defaults to C<< Preceding context expects a term, but found infix $.bad instead >>.
-
=head3 X::Syntax::Name::Null
Please sign in to comment.
Something went wrong with that request. Please try again.