--- trunk/lib/Frey/Web.pm	2008/11/19 18:55:19	464
+++ trunk/lib/Frey/Web.pm	2008/11/19 19:11:52	465
@@ -1,6 +1,8 @@
 package Frey::Web;
 use Moose::Role;
 
+with 'Frey::Backtrace';
+
 use Frey::Types;
 
 use Continuity::Widget::DomNode;
@@ -205,29 +207,15 @@
 	my $self = shift;
 	my $error = join(" ", @_);
 
-	my @backtrace;
-	foreach ( 0 .. 5 ) {
-		my @caller = caller($_) or last;
-		my @description = ( qw/
-			package filename line
-			subroutine hasargs
-			wantarray evaltext is_require
-			hints bitmask hinthash
-		/);
-		push @backtrace, join(' ',
-			map {
-				$description[$_] . ': ' . dump $caller[$_]
-			} ( 0 .. $#caller )
-		);
-	}
-	if ( @backtrace ) {
-		warn "# append backtrace: ", dump( @backtrace );
-		$error .= "\n\t" . join( "\n\t", @backtrace );
-	}
+	my @backtrace = $self->backtrace;
+	$error .= "\n\t" . join( "\n\t", @backtrace ) if @backtrace;
 
 	warn "ERROR: $error\n";
-	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm;
-	$error =~ s{(via package ")([\w:]+)(")}{$1<a target="editor" href="/editor+$2+1">$2</a>$3}gsm;
+	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}
+		{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm;
+	$error =~ s{(via package ")([\w:]+)(")}
+		{$1<a target="editor" href="/editor+$2+1">$2</a>$3}gsm;
+
 	return qq|<pre class="frey-error">$error</pre>|;
 }