File: Test.pm

package info (click to toggle)

libjson-perl 1.00-2

links: PTS
area: main
in suites: etch, etch-m68k
size: 168 kB
ctags: 116
sloc: perl: 1,158; makefile: 45

file content (17 lines) | stat: -rwxr-xr-x 175 bytes


package MyApp::Test;

sub echo {
	my $server = shift;
	my ($arg)  = @_;
	return "$arg!";
}

sub double {
	my $server = shift;
	my ($arg)  = @_;
	return "$arg x $arg";
}

1;