fork(1) download
copy 
  1.  
  2. # sub in my controller
  3. sub add_subdomain {
  4.   my $self = $_[0];
  5.  
  6.   my $list = MyDatabaseModule::Domains->new->list_add_subdomain;
  7.  
  8.   warn $self->dumper ($list);
  9.  
  10.   $self->stash (httpd_servers => $list->{httpd_servers});
  11.  
  12.   $self->render;
  13. }
  14.  
  15. # sub in model (MyDatabaseModule::Domains)
  16. sub list_add_subdomain {
  17.   my $self = $_[0];
  18.  
  19.   my ($sth, @http_servers);
  20.  
  21.   $sth = $self->dbh->prepare ('SELECT id, name, ip FROM servers WHERE httpd = 1 ORDER BY name ASC');
  22.   $sth->execute;
  23.  
  24.   while (my $row = $sth->fetchrow_hashref) {
  25.     push @httpd_servers, $row;
  26.   }
  27.  
  28.   return {
  29.     httpd_servers => [ @httpd_servers ],
  30.   };
  31.  
  32. }
  33.  
  34.  
  35. ## dump on first request
  36. #{
  37. #  "httpd_servers" => [
  38. #    {
  39. #      "id" => 4,
  40. #      "ip" => "127.0.0.1",
  41. #      "name" => "onur"
  42. #    }
  43. #  ]
  44. #}
  45. #
  46. ## dump on second request
  47. #{
  48. #  "httpd_servers" => [
  49. #    {
  50. #      "id" => 4,
  51. #      "ip" => "127.0.0.1",
  52. #      "name" => "onur"
  53. #    },
  54. #    {
  55. #      "id" => 4,
  56. #      "ip" => "127.0.0.1",
  57. #      "name" => "onur"
  58. #    }
  59. #  ]
  60. #}
  61. #
  62. ## dump on third request
  63. #{
  64. #  "httpd_servers" => [
  65. #    {
  66. #      "id" => 4,
  67. #      "ip" => "127.0.0.1",
  68. #      "name" => "onur"
  69. #    },
  70. #    {
  71. #      "id" => 4,
  72. #      "ip" => "127.0.0.1",
  73. #      "name" => "onur"
  74. #    },
  75. #    {
  76. #      "id" => 4,
  77. #      "ip" => "127.0.0.1",
  78. #      "name" => "onur"
  79. #    }
  80. #  ]
  81. #}
  82. #
  83. # ...
  84.  
  85.  
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/R3CNK9
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!