質問編集履歴
1
サブルーチン名の変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
コントローラ
|
|
22
22
|
```Perl
|
|
23
|
-
sub
|
|
23
|
+
sub hoge_diary {
|
|
24
24
|
my @result_diary = ();
|
|
25
25
|
my @result_diary_phr = ();
|
|
26
26
|
|
|
@@ -42,10 +42,10 @@
|
|
|
42
42
|
```Perl
|
|
43
43
|
sub index :Path :Args(0) {
|
|
44
44
|
my ( $self, $c, @c ) = @_;
|
|
45
|
-
$c->stash->{template} = "
|
|
45
|
+
$c->stash->{template} = "fuga.tt2";
|
|
46
|
-
my $
|
|
46
|
+
my $hoge_logic = $c->model("Logic::Hoge");
|
|
47
47
|
|
|
48
|
-
my @result_diary = $
|
|
48
|
+
my @result_diary = $hoge_logic->hoge_diary;
|
|
49
49
|
foreach my $diary_phr (@result_diary){
|
|
50
50
|
$c->stash->{month} = $diary_phr;
|
|
51
51
|
}
|