Skip to content
This repository
Browse code

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

…be easier copy&pastable
  • Loading branch information...
commit 54584ca2253bd9de53a37e0ef0704a23982816dc 1 parent 7ceaeb9
Moritz Lenz authored

Showing 1 changed file with 7 additions and 12 deletions. Show diff stats Hide diff stats

  1. 19  S32-setting-library/Exception.pod
19  S32-setting-library/Exception.pod
Source Rendered
@@ -18,7 +18,7 @@ Authors of previous versions of this document:
18 18
     Created: 26 Feb 2009
19 19
 
20 20
     Last Modified: 4 June 2012
21  
-    Version: 11
  21
+    Version: 12
22 22
 
23 23
 The document is a draft.
24 24
 
@@ -526,23 +526,18 @@ Common role for all syntax errors.
526 526
 
527 527
 =head3 X::Syntax::Obsolete
528 528
 
  529
+Thrown when obsolete (mostly Perl 5) syntax is detected.
  530
+
529 531
     role X::Syntax::Obsolete does X::Syntax {
530 532
         has $.old;
531 533
         has $.replacement; # cannot call it 'new',
532 534
                            # would collide with constructor
533  
-        has $.when = 'in Perl 6'
534  
-    }
535  
-
536  
-Message defaults to C<< Unsupported use of $.old; $.when please use $.replacement >>.
537  
-
538  
-=head3 X::Syntax::BadInfix
539  
-
540  
-    role X::Syntax::BadInfix does X::Syntax {
541  
-        has $.bad;
  535
+        has $.when = 'in Perl 6';
  536
+        method message() {
  537
+            "Unsupported use of $.old; $.when please use $.replacement";
  538
+        }
542 539
     }
543 540
 
544  
-Message defaults to C<< Preceding context expects a term, but found infix $.bad instead >>.
545  
-
546 541
 
547 542
 =head3 X::Syntax::Name::Null
548 543
 

0 notes on commit 54584ca

Please sign in to comment.
Something went wrong with that request. Please try again.