# | Line 83 | Line 83 | sub parse | |
---|---|---|
83 | undef $self->{switch}; | |
84 | } | |
85 | ||
86 | + | sub parsefilelist() |
87 | + | { |
88 | + | my $self=shift; |
89 | + | my ($files)=@_; |
90 | + | # basic setup of switcher |
91 | + | $self->{switch}=ActiveDoc::Switcher->new($files); |
92 | + | $self->{switch}->usegroupchecker($self->{gc}); |
93 | + | $self->{switch}->usetags($self->{tags}); |
94 | + | |
95 | + | # -- parse |
96 | + | $self->{switch}->parsefilelist(); |
97 | + | undef $self->{switch}; |
98 | + | } |
99 | + | |
100 | sub line | |
101 | { | |
102 | my $self=shift; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |