Parent Directory | Revision Log | Patch
revision 414 by dpavlin, Tue Nov 18 14:15:45 2008 UTC | revision 418 by dpavlin, Tue Nov 18 16:54:10 2008 UTC | |
---|---|---|
# | Line 35 sub markup { | Line 35 sub markup { |
35 | my $out; | my $out; |
36 | my $pipe; | my $pipe; |
37 | ||
38 | $self->title( ref($self) . ' | ' . $self->pipe ); | |
39 | ||
40 | foreach my $part ( split(/\|/, $self->pipe ) ) { | foreach my $part ( split(/\|/, $self->pipe ) ) { |
41 | warn "# part: '$part'"; | warn "# part: '$part'"; |
42 | if ( $part =~ m{^([^/]+)/([^\+\?]+)(.*)?$} ) { | if ( $part =~ m{^([^/]+)/([^\+\?]+)(.*)?$} ) { |
# | Line 68 sub markup { | Line 70 sub markup { |
70 | } | } |
71 | } | } |
72 | ||
73 | return '<code>' . $self->pipe . '</code>' . $out; | return $out; |
74 | } | } |
75 | ||
76 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |