File: perl_func.pl

package info (click to toggle)
gnumeric 1.6.3-5.1%2Betch2
  • links: PTS
  • area: main
  • in suites: etch
  • size: 70,644 kB
  • ctags: 18,973
  • sloc: ansic: 204,271; xml: 47,128; sh: 8,917; makefile: 2,540; yacc: 1,137; perl: 179; python: 86
file content (19 lines) | stat: -rw-r--r-- 283 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl

sub func_perl_adder {
  my($a,$b) = @_;
  return $a + $b;
}

sub help_perl_adder {
  return<<'EOS';
@FUNCTION=PERL_ADDER
@SYNTAX=PERL_ADDER(a,b)
@DESCRIPTION=
Adds two numbers. It is just an example function.
EOS
}

sub desc_perl_adder {
  return ("ff", "a,b,c");
}