Advertisement
Guest User

Untitled

a guest
May 7th, 2021
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 24.01 KB | None | 0 0
  1. The method Koha::SearchField->is_mapped is not covered by tests!
  2.  
  3. Trace begun at /kohadevbox/koha/Koha/Object.pm line 826
  4. Koha::Object::AUTOLOAD('Koha::SearchField=HASH(0x559f1e6db028)') called at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 281
  5. eval {...} at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 2
  6. CGI::Compile::ROOT::kohadevbox_koha_admin_searchengine_elasticsearch_mappings_2epl::__ANON__('CGI::Compile=HASH(0x559f2557bbe8)', '', '/kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl', '/kohadevbox/koha/admin/searchengine/elasticsearch', 'ARRAY(0x559f1ec328e0)') called at /usr/share/perl5/CGI/Compile.pm line 139
  7. CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30
  8. CGI::Emulate::PSGI::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 90
  9. Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x559f25027860)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  10. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50
  11. Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559f13d422d0)', 'HASH(0x559f1f02c420)', '/kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl') called at /usr/share/perl5/Plack/App/File.pm line 34
  12. Plack::App::File::call('Plack::App::CGIBin=HASH(0x559f13d422d0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  13. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22
  14. Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559f1b7ecc30)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  15. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30
  16. Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559f1b7ea4e8)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  17. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20
  18. Plack::Middleware::HTTPExceptions::try {...}  at /usr/share/perl5/Try/Tiny.pm line 101
  19. eval {...} at /usr/share/perl5/Try/Tiny.pm line 94
  20. Try::Tiny::try('CODE(0x559f1ecf2ac8)', 'Try::Tiny::Catch=REF(0x559f1e827d00)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23
  21. Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559f1b7ea428)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  22. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15
  23. Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559f1b7d3e40)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  24. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71
  25. Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559f1b803ed0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  26. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
  27. Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559f1b7d48f0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
  28. Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
  29. Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559f1bae1cf8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  30. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18
  31. Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559f1b7ea548)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  32. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
  33. Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559f1b9892d8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  34. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
  35. Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559f13d42210)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  36. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38
  37. Plack::Middleware::StackTrace::try {...}  at /usr/share/perl5/Try/Tiny.pm line 101
  38. eval {...} at /usr/share/perl5/Try/Tiny.pm line 94
  39. Try::Tiny::try('CODE(0x559f1eb9f208)', 'Try::Tiny::Catch=REF(0x559f1f00e280)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42
  40. Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559f1aa50200)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  41. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
  42. Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559f1aa504a0)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
  43. Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Util.pm line 145
  44. eval {...} at /usr/share/perl5/Plack/Util.pm line 145
  45. Plack::Util::run_app('CODE(0x559f1aa503c8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Starman/Server.pm line 195
  46. Starman::Server::dispatch_request('Starman::Server=HASH(0x559f137b6670)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Starman/Server.pm line 298
  47. Starman::Server::process_request('Starman::Server=HASH(0x559f137b6670)', 'Net::Server::Proto::UNIX=GLOB(0x559f1ef98480)') called at /usr/share/perl5/Net/Server.pm line 74
  48. Net::Server::run_client_connection('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server/PreFork.pm line 229
  49. eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 229
  50. Net::Server::PreFork::run_child('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server/PreFork.pm line 187
  51. Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559f137b6670)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 111
  52. Net::Server::PreFork::loop('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server.pm line 60
  53. Net::Server::run('Starman::Server=HASH(0x559f137b6670)', 'port', 'ARRAY(0x559f13ca6e18)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', 'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/kohadev/plack.pid', 'log_file', '/var/log/koha/kohadev/plack-error.log', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106
  54. Starman::Server::run('Starman::Server=HASH(0x559f137b6670)', 'CODE(0x559f137b6508)', 'HASH(0x559f137b62c8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25
  55. Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559f137b6520)', 'CODE(0x559f137b6508)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
  56. Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559f134d4f18)', 'Plack::Handler::Starman=HASH(0x559f137b6520)') called at /usr/share/perl5/Plack/Runner.pm line 277
  57. Plack::Runner::run('Plack::Runner=HASH(0x559f134747e0)') called at /usr/bin/starman line 38
  58.  at /usr/share/perl5/Exception/Class/Base.pm line 88
  59. in Exception::Class::Base::throw at /usr/share/perl5/Exception/Class/Base.pm line 88
  60.    85:
  61.    86:     $proto->rethrow if ref $proto;
  62.    87:
  63.    88:     die $proto->new(@_);
  64.    89: }
  65.    90:
  66.    91: sub rethrow {
  67. Show function arguments
  68.  
  69. in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 826
  70.   823:     Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
  71.   824:         error      => sprintf("The method %s->%s is not covered by tests!", ref($self), $method),
  72.   825:         show_trace => 1
  73.   826:     ) unless grep { $_ eq $method } @known_methods;
  74.   827:
  75.   828:
  76.   829:     my $r = eval { $self->_result->$method(@_) };
  77. Show function arguments
  78.  
  79. in (eval) at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 281
  80.   278: while ( my $search_field = $search_fields->next ) {
  81.   279:     my $search_field_unblessed = $search_field->unblessed;
  82.   280:     $search_field_unblessed->{mapped_biblios} = 1 if $search_field->is_mapped_biblios;
  83.   281:     $search_field_unblessed->{is_mapped} = $search_field->is_mapped;
  84.   282:     $search_field_unblessed->{aliases} = $search_fields_aliases->{$search_field_unblessed->{name}};
  85.   283:     push @all_search_fields, $search_field_unblessed;
  86.   284: }
  87. in CGI::Compile::ROOT::kohadevbox_koha_admin_searchengine_elasticsearch_mappings_2epl::__ANON__ at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 2
  88.     1: #!/usr/bin/perl
  89.     2:
  90.     3: # This file is part of Koha.
  91.     4: #
  92.     5: # Koha is free software; you can redistribute it and/or modify it
  93. Show function arguments
  94.  
  95. in CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Compile.pm line 139
  96.   136:             # this is necessary for MSWin32
  97.   137:             my $orig_warn = $SIG{__WARN__} || sub { warn(@_) };
  98.   138:             local $SIG{__WARN__} = sub { $orig_warn->(@_) unless $_[0] =~ /^No such signal/ };
  99.   139:             $code->($self, $data, $path, $dir, \@args)
  100.   140:         };
  101.   141:     };
  102.   142:
  103. in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30
  104.    27:                 local *STDOUT = $stdout;
  105.    28:                 local *STDERR = $env->{'psgi.errors'};
  106.    29:
  107.    30:                 $code->();
  108.    31:             }
  109.    32:         }
  110.    33:
  111. Show function arguments
  112.  
  113. in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 90
  114.    87:
  115.    88: sub call {
  116.    89:     my($self, $env) = @_;
  117.    90:     $self->_app->($env);
  118.    91: }
  119.    92:
  120.    93: 1;
  121. Show function arguments
  122.  
  123. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  124.    47: sub to_app {
  125.    48:     my $self = shift;
  126.    49:     $self->prepare_app;
  127.    50:     return sub { $self->call(@_) };
  128.    51: }
  129.    52:
  130.    53:
  131. Show function arguments
  132.  
  133. in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50
  134.    47:     my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new(
  135.    48:         script => $file, execute => $self->would_exec($file),
  136.    49:     )->to_app;
  137.    50:     $app->($env);
  138.    51: }
  139.    52:
  140.    53: 1;
  141. Show function arguments
  142.  
  143. in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34
  144.    31:         $env->{'plack.file.PATH_INFO'}   = '';
  145.    32:     }
  146.    33:
  147.    34:     return $self->serve_path($env, $file);
  148.    35: }
  149.    36:
  150.    37: sub locate_file {
  151. Show function arguments
  152.  
  153. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  154.    47: sub to_app {
  155.    48:     my $self = shift;
  156.    49:     $self->prepare_app;
  157.    50:     return sub { $self->call(@_) };
  158.    51: }
  159.    52:
  160.    53:
  161. Show function arguments
  162.  
  163. in Plack::Middleware::LogWarn::call at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22
  164.    19:          message => join '', @_
  165.    20:       });
  166.    21:    };
  167.    22:    my $res = $self->app->($env);
  168.    23:
  169.    24:    return $res;
  170.    25: }
  171. Show function arguments
  172.  
  173. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  174.    47: sub to_app {
  175.    48:     my $self = shift;
  176.    49:     $self->prepare_app;
  177.    50:     return sub { $self->call(@_) };
  178.    51: }
  179.    52:
  180.    53:
  181. Show function arguments
  182.  
  183. in Plack::Middleware::Log4perl::call at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30
  184.    27:         $self->logger->$level($args->{message});
  185.    28:     };
  186.    29:
  187.    30:     $self->app->($env);
  188.    31: }
  189.    32:
  190.    33: 1;
  191. Show function arguments
  192.  
  193. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  194.    47: sub to_app {
  195.    48:     my $self = shift;
  196.    49:     $self->prepare_app;
  197.    50:     return sub { $self->call(@_) };
  198.    51: }
  199.    52:
  200.    53:
  201. Show function arguments
  202.  
  203. in Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20
  204.    17:     my($self, $env) = @_;
  205.    18:
  206.    19:     my $res = try {
  207.    20:         $self->app->($env);
  208.    21:     } catch {
  209.    22:         $self->transform_error($_, $env);
  210.    23:     };
  211. in (eval) at /usr/share/perl5/Try/Tiny.pm line 101
  212.    98:     if ( $wantarray ) {
  213.    99:       @ret = $try->();
  214.   100:     } elsif ( defined $wantarray ) {
  215.   101:       $ret[0] = $try->();
  216.   102:     } else {
  217.   103:       $try->();
  218.   104:     };
  219. in Try::Tiny::try at /usr/share/perl5/Try/Tiny.pm line 94
  220.    91:
  221.    92:   # failed will be true if the eval dies, because 1 will not be returned
  222.    93:   # from the eval body
  223.    94:   my $failed = not eval {
  224.    95:     $@ = $prev_error;
  225.    96:
  226.    97:     # evaluate the try block in the correct context
  227. Show function arguments
  228.  
  229. in Plack::Middleware::HTTPExceptions::call at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23
  230.    20:         $self->app->($env);
  231.    21:     } catch {
  232.    22:         $self->transform_error($_, $env);
  233.    23:     };
  234.    24:
  235.    25:     return $res if ref $res eq 'ARRAY';
  236.    26:
  237. Show function arguments
  238.  
  239. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  240.    47: sub to_app {
  241.    48:     my $self = shift;
  242.    49:     $self->prepare_app;
  243.    50:     return sub { $self->call(@_) };
  244.    51: }
  245.    52:
  246.    53:
  247. Show function arguments
  248.  
  249. in Plack::Middleware::ErrorDocument::call at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15
  250.    12:     my $self = shift;
  251.    13:     my $env  = shift;
  252.    14:
  253.    15:     my $r = $self->app->($env);
  254.    16:
  255.    17:     $self->response_cb($r, sub {
  256.    18:         my $r = shift;
  257. Show function arguments
  258.  
  259. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  260.    47: sub to_app {
  261.    48:     my $self = shift;
  262.    49:     $self->prepare_app;
  263.    50:     return sub { $self->call(@_) };
  264.    51: }
  265.    52:
  266.    53:
  267. Show function arguments
  268.  
  269. in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71
  270.    68:         return $self->response_cb($app->($env), sub {
  271.    69:             $env->{PATH_INFO} = $orig_path_info;
  272.    70:             $env->{SCRIPT_NAME} = $orig_script_name;
  273.    71:         });
  274.    72:     }
  275.    73:
  276.    74:     DEBUG && warn "All matching failed.\n";
  277. Show function arguments
  278.  
  279. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  280.    47: sub to_app {
  281.    48:     my $self = shift;
  282.    49:     $self->prepare_app;
  283.    50:     return sub { $self->call(@_) };
  284.    51: }
  285.    52:
  286.    53:
  287. Show function arguments
  288.  
  289. in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
  290.    61:         }
  291.    62:     }
  292.    63:
  293.    64:     return $self->app->($env);
  294.    65: }
  295.    66:
  296.    67: =head2 get_real_ip
  297. Show function arguments
  298.  
  299. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  300.    47: sub to_app {
  301.    48:     my $self = shift;
  302.    49:     $self->prepare_app;
  303.    50:     return sub { $self->call(@_) };
  304.    51: }
  305.    52:
  306.    53:
  307. Show function arguments
  308.  
  309. in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
  310.   101:         %setenvs
  311.   102:     };
  312.   103:
  313.   104:     return $self->app->($env);
  314.   105: }
  315.   106:
  316.   107: =head1 AUTHOR
  317. Show function arguments
  318.  
  319. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  320.    47: sub to_app {
  321.    48:     my $self = shift;
  322.    49:     $self->prepare_app;
  323.    50:     return sub { $self->call(@_) };
  324.    51: }
  325.    52:
  326.    53:
  327. Show function arguments
  328.  
  329. in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18
  330.    15:         return $res;
  331.    16:     }
  332.    17:
  333.    18:     return $self->app->($env);
  334.    19: }
  335.    20:
  336.    21: sub _handle_static {
  337. Show function arguments
  338.  
  339. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  340.    47: sub to_app {
  341.    48:     my $self = shift;
  342.    49:     $self->prepare_app;
  343.    50:     return sub { $self->call(@_) };
  344.    51: }
  345.    52:
  346.    53:
  347. Show function arguments
  348.  
  349. in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
  350.    65:         }
  351.    66:     }
  352.    67:
  353.    68:     $self->app->($env);
  354.    69: }
  355.    70:
  356.    71: 1;
  357. Show function arguments
  358.  
  359. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  360.    47: sub to_app {
  361.    48:     my $self = shift;
  362.    49:     $self->prepare_app;
  363.    50:     return sub { $self->call(@_) };
  364.    51: }
  365.    52:
  366.    53:
  367. Show function arguments
  368.  
  369. in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
  370.    21:     my $env = shift;
  371.    22:
  372.    23:     $self->validate_env($env);
  373.    24:     my $res = $self->app->($env);
  374.    25:     return $self->validate_res($res);
  375.    26: }
  376.    27:
  377. Show function arguments
  378.  
  379. in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50
  380.    47: sub to_app {
  381.    48:     my $self = shift;
  382.    49:     $self->prepare_app;
  383.    50:     return sub { $self->call(@_) };
  384.    51: }
  385.    52:
  386.    53:
  387. in (eval) at /usr/share/perl5/Try/Tiny.pm line 101
  388.    98:     if ( $wantarray ) {
  389.    99:       @ret = $try->();
  390.   100:     } elsif ( defined $wantarray ) {
  391.   101:       $ret[0] = $try->();
  392.   102:     } else {
  393.   103:       $try->();
  394.   104:     };
  395. in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 94
  396.    91:
  397.    92:   # failed will be true if the eval dies, because 1 will not be returned
  398.    93:   # from the eval body
  399.    94:   my $failed = not eval {
  400.    95:     $@ = $prev_error;
  401.    96:
  402.    97:     # evaluate the try block in the correct context
  403. Show function arguments
  404.  
  405. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  406.    47: sub to_app {
  407.    48:     my $self = shift;
  408.    49:     $self->prepare_app;
  409.    50:     return sub { $self->call(@_) };
  410.    51: }
  411.    52:
  412.    53:
  413. Show function arguments
  414.  
  415. in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
  416.    24:     my $self = shift;
  417.    25:     my($env) = @_;
  418.    26:
  419.    27:     my $res = $self->app->($env);
  420.    28:
  421.    29:     if ( ref($res) && ref($res) eq 'ARRAY' ) {
  422.    30:         my $content_length = Plack::Util::content_length($res->[2]);
  423. Show function arguments
  424.  
  425. in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
  426.    47: sub to_app {
  427.    48:     my $self = shift;
  428.    49:     $self->prepare_app;
  429.    50:     return sub { $self->call(@_) };
  430.    51: }
  431.    52:
  432.    53:
  433. Show function arguments
  434.  
  435. in (eval) at /usr/share/perl5/Plack/Util.pm line 145
  436.   142: sub run_app($$) {
  437.   143:     my($app, $env) = @_;
  438.   144:
  439.   145:     return eval { $app->($env) } || do {
  440.   146:         my $body = "Internal Server Error";
  441.   147:         $env->{'psgi.errors'}->print($@);
  442.   148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
  443. in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145
  444.   142: sub run_app($$) {
  445.   143:     my($app, $env) = @_;
  446.   144:
  447.   145:     return eval { $app->($env) } || do {
  448.   146:         my $body = "Internal Server Error";
  449.   147:         $env->{'psgi.errors'}->print($@);
  450.   148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
  451. Show function arguments
  452.  
  453. in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195
  454.   192:     my ($self, $env) = @_;
  455.   193:
  456.   194:     # Run PSGI apps
  457.   195:     my $res = Plack::Util::run_app($self->{app}, $env);
  458.   196:
  459.   197:     if (ref $res eq 'CODE') {
  460.   198:         $res->(sub { $self->_finalize_response($env, $_[0]) });
  461. Show function arguments
  462.  
  463. in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298
  464.   295:
  465.   296:         $self->_prepare_env($env);
  466.   297:
  467.   298:         $self->dispatch_request($env);
  468.   299:
  469.   300:         DEBUG && warn "[$$] Request done\n";
  470.   301:
  471. Show function arguments
  472.  
  473. in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 74
  474.    71:     $self->post_accept_hook($c);    # user customizable hook
  475.    72:
  476.    73:     my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info
  477.    74:     if ($ok) {
  478.    75:         $self->process_request($c);   # This is where the core functionality of a Net::Server should be.
  479.    76:     } else {
  480.    77:         $self->request_denied_hook($c);     # user customizable hook
  481. Show function arguments
  482.  
  483. in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 229
  484.   226:         $prop->{'connected'} = 1;
  485.   227:         print $write "$$ processing\n";
  486.   228:
  487.   229:         my $ok = eval { $self->run_client_connection; 1 };
  488.   230:         if (! $ok) {
  489.   231:             print $write "$$ exiting\n";
  490.   232:             die $@;
  491. in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 229
  492.   226:         $prop->{'connected'} = 1;
  493.   227:         print $write "$$ processing\n";
  494.   228:
  495.   229:         my $ok = eval { $self->run_client_connection; 1 };
  496.   230:         if (! $ok) {
  497.   231:             print $write "$$ exiting\n";
  498.   232:             die $@;
  499. Show function arguments
  500.  
  501. in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 187
  502.   184:             if ($prop->{'child_communication'}) {
  503.   185:                 $prop->{'parent_sock'} = $childsock;
  504.   186:             }
  505.   187:             $self->run_child;
  506.   188:         }
  507.   189:     }
  508.   190: }
  509. Show function arguments
  510.  
  511. in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 111
  512.   108:
  513.   109:     my $start = $prop->{'min_servers'};
  514.   110:     $self->log(3, "Beginning prefork ($start processes)");
  515.   111:     $self->run_n_children($start);
  516.   112:
  517.   113:     $self->run_parent;
  518.   114: }
  519. Show function arguments
  520.  
  521. in Net::Server::run at /usr/share/perl5/Net/Server.pm line 60
  522.    57:     $self->post_bind;           # allow for chrooting, becoming a different user and group
  523.    58:
  524.    59:     $self->pre_loop_hook;       # user customizable hook
  525.    60:     $self->loop;                # repeat accept/process cycle
  526.    61:
  527.    62:     $self->server_close;        # close the server and release the port
  528.    63: }
  529. Show function arguments
  530.  
  531. in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106
  532.   103:         max_requests        => $options->{max_requests}      || 1000,
  533.   104:         user                => $options->{user}              || $>,
  534.   105:         group               => $options->{group}             || $),
  535.   106:         listen              => $options->{backlog}           || 1024,
  536.   107:         check_for_waiting   => 1,
  537.   108:         no_client_stdout    => 1,
  538.   109:         %extra
  539. Show function arguments
  540.  
  541. in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25
  542.    22:     }
  543.    23:     $self->{net_server_args} = \%nsa if %nsa;
  544.    24:
  545.    25:     Starman::Server->new->run($app, {%$self});
  546.    26: }
  547.    27:
  548.    28: 1;
  549. Show function arguments
  550.  
  551. in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
  552.    17:     };
  553.    18:
  554.    19:     $server->{psgi_app_builder} = $self->{builder};
  555.    20:     $server->run($app);
  556.    21: }
  557.    22:
  558.    23: 1;
  559. Show function arguments
  560.  
  561. in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277
  562.   274:     $loader->preload_app($app);
  563.   275:
  564.   276:     my $server = $self->load_server($loader);
  565.   277:     $loader->run($server);
  566.   278: }
  567.   279:
  568.   280: 1;
  569. Show function arguments
  570.  
  571. at /usr/bin/starman line 38
  572.    35: }
  573.    36:
  574.    37: $runner->set_options(argv => \@argv);
  575.    38: $runner->run;
  576.    39:
  577.    40: __END__
  578.    41:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement