package plugin::linklist::LLParser;
use strict;
use vars qw(@ISA);
use Wiki::Parser;
@ISA = qw(Wiki::Parser);

sub new {
    my $class = shift;
    my $self  = Wiki::Parser->new(shift);
    $self->{pagename} = shift;
    $self->{wiki_anchor_list} = [];
    return bless $self,$class;
}

sub wiki_anchor {
    my $self = shift;
    my $page = shift;
    my $name = shift;
    return if ($page eq '');
    return if ($page eq $self->{pagename});
    if (defined($self->{wiki}->page_exists($page))) {
	my @wiki_anchor_list = @{$self->{wiki_anchor_list}};
	foreach my $anchor (@wiki_anchor_list) {
	    return if ($anchor eq $page);
	}
	push @wiki_anchor_list, $page;
	$self->{wiki_anchor_list} = [@wiki_anchor_list];
    }
}