diff options
Diffstat (limited to 'Master/texmf-dist/scripts/context/perl/utiplug.pm')
-rw-r--r-- | Master/texmf-dist/scripts/context/perl/utiplug.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/context/perl/utiplug.pm b/Master/texmf-dist/scripts/context/perl/utiplug.pm new file mode 100644 index 00000000000..2bc162e1e38 --- /dev/null +++ b/Master/texmf-dist/scripts/context/perl/utiplug.pm @@ -0,0 +1,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 ; |