| Path : /var/lib/ntp/proc/self/root/usr/share/doc/packages/yast2-perl-bindings/modules/ |
| Current File : //var/lib/ntp/proc/self/root/usr/share/doc/packages/yast2-perl-bindings/modules/PerlFunc.pm |
#! /usr/bin/perl -w
use strict;
package PerlFunc;
our %TYPEINFO;
BEGIN { $TYPEINFO{PlusOne} = ["function", "integer", "integer"]; }
sub PlusOne
{
my $package = shift;
my $i = shift;
return $i + 1;
}
1;