kill Throwable::Error

dakkar · Feb 28, 2012 · 09d4bf8 · 09d4bf8
1 parent 2ef703c
commit 09d4bf8
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/lib/Plack/Handler/Stomp/Exceptions.pm b/lib/Plack/Handler/Stomp/Exceptions.pm
@@ -19,23 +19,23 @@ package Plack::Handler::Stomp::Exceptions;
 }
 
 {package Plack::Handler::Stomp::Exceptions::AppError;
- use Moose;extends 'Throwable::Error';
+ use Moose;with 'Throwable','Plack::Handler::Stomp::Exceptions::Stringy';
  has '+previous_exception' => (
      init_arg => 'app_error',
  );
- has '+message' => (
+ sub as_string {
-     default => 'The application died',
+     return 'The application died:'.$_[0]->previous_exception;
- );
+ }
 }
 
 {package Plack::Handler::Stomp::Exceptions::Stomp;
- use Moose;extends 'Throwable::Error';
+ use Moose;with 'Throwable','Plack::Handler::Stomp::Exceptions::Stringy';
  has '+previous_exception' => (
      init_arg => 'stomp_error',
  );
- has '+message' => (
+ sub as_string {
-     default => 'STOMP protocol/network error',
+     return 'STOMP protocol/network error:'.$_[0]->previous_exception;
- );
+ }
 }
 
 {package Plack::Handler::Stomp::Exceptions::OneShot;