view release on metacpan or  search on metacpan

examples/validator1-daemon.pl  view on Meta::CPAN

sub manyTypesTest {
    return [@_];
}

sub moderateSizeArrayCheck {
    my $array = shift;
    return join('', $array->[0], $array->[-1]);
}

sub nestedStructTest {
    my $calendar = shift;
    my $april_1_2000 = $calendar->{'2000'}{'04'}{'01'};
    return ($april_1_2000->{'moe'} + $april_1_2000->{'larry'}
	    + $april_1_2000->{'curly'});
}

sub simpleStructReturnTest {
    my $number = shift;

    return { times10 => $number * 10,
	     times100 => $number * 100,
	     times1000 => $number * 1000 };