File: HelloController.pm

package info (click to toggle)
libdata-amf-perl 0.09%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 552 kB
  • ctags: 527
  • sloc: perl: 5,955; makefile: 10
file content (36 lines) | stat: -rw-r--r-- 507 bytes parent folder | download | duplicates (3) 
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
31
32
33
34
35
36
 
package HelloController;
use Moose;

sub echo
{
	my ($self, $args) = @_;
	
	return $args;
}

sub list
{
	my ($self, $args) = @_;
	
	my $len = $args->[0] || 1000;
	
	my @result;
	for (1 .. $len) {
		push @result, {
			id => $_,
			name => 'data' . $_,
			description => 'こんにちは。これは AMF から受け取ったデータです。'
		};
	}
	
	return { 'data' => \@result };
}

sub add
{
	my ($self, $args) = @_;
	return $args->[0] . " + " . $args->[1] . " = " . ($args->[0] + $args->[1]);
}


1;