Changeset 431 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/WikiLinkFormatterParent.pm

Timestamp:

05/11/08 17:04:41 (4 years ago)

Author:

dom

Message:

fix much tab/whitespace damage; no functional changes.

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/WikiLinkFormatterParent.pm (modified) (2 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/WikiLinkFormatterParent.pm

@@ -40 +40 @@
     my ($self, $from, $to, $content) = @_;
 
-        # If we support extended (square bracket) links, update those
-        if($self->{_extended_links}) {
-                $content =~ s/\[$from\]/\[$to\]/g;
-                $content =~ s/\[$from(\s*|.*?)\]/\[$to$1\]/g;
-        }
+    # If we support extended (square bracket) links, update those
+    if($self->{_extended_links}) {
+        $content =~ s/\[$from\]/\[$to\]/g;
+        $content =~ s/\[$from(\s*|.*?)\]/\[$to$1\]/g;
+    }
 
-        # If we support implicit (camelcase) links, update those
-        if($self->{_implicit_links}) {
-                $content =~ s/\b$from\b/$to/g;
-                $content =~ s/^$from\b/$to/gm;
-                $content =~ s/\b$from$/$to/gm;
-        }
+    # If we support implicit (camelcase) links, update those
+    if($self->{_implicit_links}) {
+        $content =~ s/\b$from\b/$to/g;
+        $content =~ s/^$from\b/$to/gm;
+        $content =~ s/\b$from$/$to/gm;
+    }
 
-        return $content;
+    return $content;
 }
 
@@ -72 +72 @@
 
     my $foo = wikiformat($raw,
-                        { link => sub {
-                                        my ($link, $opts) = @_;
-                                        $opts ||= {};
-                                        my $title;
-                                        ($link, $title) = split(/\|/, $link, 2)
-                                                if $opts->{extended};
-                                        push @Wiki::Toolkit::Formatter::WikiLinkFormatterParent::_links_found,
-                                                $link;
-                                        return ""; # don't care about output
-                                }
-                        },
-                        {
-                                extended       => $self->{_extended_links},
-                                prefix         => $self->{_node_prefix},
-                                implicit_links => $self->{_implicit_links} 
-                        } 
-        );
+            { link => sub {
+                    my ($link, $opts) = @_;
+                    $opts ||= {};
+                    my $title;
+                    ($link, $title) = split(/\|/, $link, 2)
+                        if $opts->{extended};
+                    push @Wiki::Toolkit::Formatter::WikiLinkFormatterParent::_links_found,
+                        $link;
+                    return ""; # don't care about output
+                }
+            },
+            {
+                extended       => $self->{_extended_links},
+                prefix         => $self->{_node_prefix},
+                implicit_links => $self->{_implicit_links} 
+            } 
+    );
 
     my @links = @_links_found;