/[Frey]/branches/zimbardo/lib/Frey/Web.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/zimbardo/lib/Frey/Web.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 388 by dpavlin, Tue Nov 18 00:19:22 2008 UTC revision 389 by dpavlin, Tue Nov 18 00:30:29 2008 UTC
# Line 5  use Frey::Types; Line 5  use Frey::Types;
5    
6  use Continuity::Widget::DomNode;  use Continuity::Widget::DomNode;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use Carp qw/confess cluck/;  use Carp qw/confess/;
9  use File::Slurp;  use File::Slurp;
10    
11  has 'head' => (  has 'head' => (
# Line 155  sub page { Line 155  sub page {
155    
156  sub error {  sub error {
157          my ( $self, $error ) = @_;          my ( $self, $error ) = @_;
158          cluck $error;          my ($package, $filename, $line) = caller;
159          $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;          $error .= " at $filename line $line";
160            warn "WARN: $error\n";
161            $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
162          return qq|<pre class="frey-error">$error</pre>|;          return qq|<pre class="frey-error">$error</pre>|;
163  }  }
164    
Legend:
Removed from v.388  
changed lines
  Added in v.389
  ViewVC Help
Powered by ViewVC 1.1.26