/[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 130 by dpavlin, Mon Jul 14 23:50:16 2008 UTC revision 136 by dpavlin, Tue Jul 15 17:14:33 2008 UTC
# Line 27  sub html { Line 27  sub html {
27  }  }
28    
29  sub markup {  sub markup {
         warn "## markup ",dump( @_ );  
30          my ( $self, $class ) = @_;          my ( $self, $class ) = @_;
31          $class ||= $self->class;          $class ||= $self->class;
32          use Pod::Simple::HTML;          use Pod::Simple::HTML;
# Line 37  sub markup { Line 36  sub markup {
36          my $converter = Pod::Simple::HTML->new();          my $converter = Pod::Simple::HTML->new();
37          my $body;          my $body;
38          my $my_classes = join('|', $self->classes);          my $my_classes = join('|', $self->classes);
         warn "my_classes: $my_classes";  
39          $converter->output_string( \$body );          $converter->output_string( \$body );
40          $converter->parse_string_document($pod);          $converter->parse_string_document($pod);
41          $body =~ s{.*?<body [^>]+>}{}s;          $body =~ s{.*?<body [^>]+>}{}s;
Legend:
Removed from v.130  
changed lines
  Added in v.136
  ViewVC Help
Powered by ViewVC 1.1.26