/[Frey]/branches/no-pager/lib/Frey/Pod.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/no-pager/lib/Frey/Pod.pm

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

revision 346 by dpavlin, Sat Nov 15 16:29:26 2008 UTC revision 350 by dpavlin, Sun Nov 16 00:37:34 2008 UTC
# Line 31  sub markup { Line 31  sub markup {
31          my $class = $self->class;          my $class = $self->class;
32          use Pod::Simple::HTML;          use Pod::Simple::HTML;
33          my $path = eval { $self->class_path( $class ) };          my $path = eval { $self->class_path( $class ) };
34          if ( $@ ) {          return $self->error( $@ ) if $@;
                 warn $@;  
                 my $error = $@;  
                 $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;  
                 return qq|<div class="error"><pre>$error</pre></div>|;  
         }  
35          my $pod = read_file( $path );          my $pod = read_file( $path );
36          my $converter = Pod::Simple::HTML->new();          my $converter = Pod::Simple::HTML->new();
37          my $body;          my $body;
Legend:
Removed from v.346  
changed lines
  Added in v.350
  ViewVC Help
Powered by ViewVC 1.1.26