|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/share/texmf/scripts/context/perl/ |
Upload File : |
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 ;