| 22 |
|
|
| 23 |
=over 4 |
=over 4 |
| 24 |
|
|
|
=begin temp |
|
|
|
|
|
=item $o->new_index ($index_name) |
|
|
|
|
|
Increments the index number and returns the new index number. |
|
|
|
|
|
=end temp |
|
|
|
|
|
=cut |
|
|
|
|
|
{my %Index; |
|
|
sub new_index ($$) { ++$Index{$_[1]} } |
|
|
} |
|
|
|
|
| 25 |
=item $formatter = SuikaWiki::Plugin->formatter ($category_name) |
=item $formatter = SuikaWiki::Plugin->formatter ($category_name) |
| 26 |
|
|
| 27 |
Returns an instance of formatter whose category (context) is |
Returns an instance of formatter whose category (context) is |
| 82 |
file => $dir, |
file => $dir, |
| 83 |
message => $!, |
message => $!, |
| 84 |
-object => $self, method => 'load_directory'; |
-object => $self, method => 'load_directory'; |
| 85 |
for (grep {substr ($_, -3) eq '.pm'} readdir (PDIR)) { |
for (grep {substr ($_, -3) eq '.pm'} readdir PDIR) { |
| 86 |
eval { require $dir.'/'.$_ }; |
eval { require $dir.'/'.$_ }; |
| 87 |
if ($@) { |
if ($@) { |
| 88 |
throw SuikaWiki::Plugin::error |
throw SuikaWiki::Plugin::error |