blob: 2bc162e1e385a2780ebb5b02986890097237de85 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
package utiplug ;
my @data ;
my @result ;
sub utiplug::initialize
{ @data = () }
sub utiplug::process
{ @data = sort @data ;
for (my $i=0; $i<@data; $i++)
{ @result[$i] = "\\plugintest\{$i\}\{$data[$i]\}" } }
sub utiplug::handle
{ my ($self,$text,$rest) = @_ ; push @data, $text }
sub utiplug::identify
{ return "utiplug test plugin" }
sub utiplug::report
{ my $keys = @data ;
if ($keys)
{ return ("done", "keys:$keys") }
else
{ return ("nothing done") } }
sub utiplug::results
{ return @result }
1 ;
|