質問編集履歴
1
サブルーチン名の変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
```Perl
|
|
44
44
|
|
|
45
|
-
sub
|
|
45
|
+
sub hoge_diary {
|
|
46
46
|
|
|
47
47
|
my @result_diary = ();
|
|
48
48
|
|
|
@@ -86,13 +86,13 @@
|
|
|
86
86
|
|
|
87
87
|
my ( $self, $c, @c ) = @_;
|
|
88
88
|
|
|
89
|
-
$c->stash->{template} = "
|
|
89
|
+
$c->stash->{template} = "fuga.tt2";
|
|
90
90
|
|
|
91
|
-
my $
|
|
91
|
+
my $hoge_logic = $c->model("Logic::Hoge");
|
|
92
92
|
|
|
93
93
|
|
|
94
94
|
|
|
95
|
-
my @result_diary = $
|
|
95
|
+
my @result_diary = $hoge_logic->hoge_diary;
|
|
96
96
|
|
|
97
97
|
foreach my $diary_phr (@result_diary){
|
|
98
98
|
|