File: utiplug.pm

package info (click to toggle)
tetex-base 3.0.dfsg.3-5etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 239,592 kB
  • ctags: 10,610
  • sloc: xml: 103,461; perl: 9,398; ruby: 2,850; python: 1,551; php: 1,067; sh: 981; lisp: 494; makefile: 371; awk: 88
file content (30 lines) | stat: -rw-r--r-- 566 bytes parent folder | download | duplicates (5) 
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 ;