[Catalyst-commits] r11158 - trunk/misc/exception_test_new_case/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-18 13:59:15 +0000 (Tue, 18 Aug 2009)
New Revision: 11158

Modified:
   trunk/misc/exception_test_new_case/lib/TestAppClassExceptionSimpleTest.pm
Log:
More simplification

Modified: trunk/misc/exception_test_new_case/lib/TestAppClassExceptionSimpleTest.pm
===================================================================
--- trunk/misc/exception_test_new_case/lib/TestAppClassExceptionSimpleTest.pm	2009-08-18 13:58:11 UTC (rev 11157)
+++ trunk/misc/exception_test_new_case/lib/TestAppClassExceptionSimpleTest.pm	2009-08-18 13:59:15 UTC (rev 11158)
@@ -9,41 +9,10 @@
 
 package exception_test_new_case::Exception;
 
-## thank to Brian
-## http://bricas.vox.com/library/post/catalyst-exceptionclass.html
-
 use strict;
 use warnings;
 no warnings 'redefine';
 
-sub throw { die bless({ message => shift}, __PACKAGE__) }
+sub throw { die bless({}, __PACKAGE__) }
 
-sub as_string {
-    "Error status: " . $_[0]->{message};
-}
-
-sub message {
-    return $_[0]->{message} ||= 'you meet a server error';
-}
-
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 SEE ALSO
-
-L<TestAppClassException::Controller::Root>, L<Catalyst>
-
-=head1 AUTHOR
-
-Ferruccio Zamuner
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
 1;