Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- The method Koha::SearchField->is_mapped is not covered by tests!
- Trace begun at /kohadevbox/koha/Koha/Object.pm line 826
- Koha::Object::AUTOLOAD('Koha::SearchField=HASH(0x559f1e6db028)') called at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 281
- eval {...} at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 2
- 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
- CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30
- CGI::Emulate::PSGI::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 90
- Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x559f25027860)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50
- 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
- Plack::App::File::call('Plack::App::CGIBin=HASH(0x559f13d422d0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22
- Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559f1b7ecc30)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30
- Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559f1b7ea4e8)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20
- Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Try/Tiny.pm line 101
- eval {...} at /usr/share/perl5/Try/Tiny.pm line 94
- Try::Tiny::try('CODE(0x559f1ecf2ac8)', 'Try::Tiny::Catch=REF(0x559f1e827d00)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23
- Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559f1b7ea428)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15
- Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559f1b7d3e40)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71
- Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559f1b803ed0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
- Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559f1b7d48f0)', 'HASH(0x559f1f02c420)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1f02c420)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
- Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559f1bae1cf8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18
- Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559f1b7ea548)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
- Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559f1b9892d8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
- Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559f13d42210)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38
- Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 101
- eval {...} at /usr/share/perl5/Try/Tiny.pm line 94
- Try::Tiny::try('CODE(0x559f1eb9f208)', 'Try::Tiny::Catch=REF(0x559f1f00e280)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42
- Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559f1aa50200)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
- Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559f1aa504a0)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Component.pm line 50
- Plack::Component::__ANON__('HASH(0x559f1ee288d0)') called at /usr/share/perl5/Plack/Util.pm line 145
- eval {...} at /usr/share/perl5/Plack/Util.pm line 145
- Plack::Util::run_app('CODE(0x559f1aa503c8)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Starman/Server.pm line 195
- Starman::Server::dispatch_request('Starman::Server=HASH(0x559f137b6670)', 'HASH(0x559f1ee288d0)') called at /usr/share/perl5/Starman/Server.pm line 298
- Starman::Server::process_request('Starman::Server=HASH(0x559f137b6670)', 'Net::Server::Proto::UNIX=GLOB(0x559f1ef98480)') called at /usr/share/perl5/Net/Server.pm line 74
- Net::Server::run_client_connection('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server/PreFork.pm line 229
- eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 229
- Net::Server::PreFork::run_child('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server/PreFork.pm line 187
- Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559f137b6670)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 111
- Net::Server::PreFork::loop('Starman::Server=HASH(0x559f137b6670)') called at /usr/share/perl5/Net/Server.pm line 60
- 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
- Starman::Server::run('Starman::Server=HASH(0x559f137b6670)', 'CODE(0x559f137b6508)', 'HASH(0x559f137b62c8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25
- Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559f137b6520)', 'CODE(0x559f137b6508)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
- Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559f134d4f18)', 'Plack::Handler::Starman=HASH(0x559f137b6520)') called at /usr/share/perl5/Plack/Runner.pm line 277
- Plack::Runner::run('Plack::Runner=HASH(0x559f134747e0)') called at /usr/bin/starman line 38
- at /usr/share/perl5/Exception/Class/Base.pm line 88
- in Exception::Class::Base::throw at /usr/share/perl5/Exception/Class/Base.pm line 88
- 85:
- 86: $proto->rethrow if ref $proto;
- 87:
- 88: die $proto->new(@_);
- 89: }
- 90:
- 91: sub rethrow {
- Show function arguments
- in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 826
- 823: Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
- 824: error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method),
- 825: show_trace => 1
- 826: ) unless grep { $_ eq $method } @known_methods;
- 827:
- 828:
- 829: my $r = eval { $self->_result->$method(@_) };
- Show function arguments
- in (eval) at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 281
- 278: while ( my $search_field = $search_fields->next ) {
- 279: my $search_field_unblessed = $search_field->unblessed;
- 280: $search_field_unblessed->{mapped_biblios} = 1 if $search_field->is_mapped_biblios;
- 281: $search_field_unblessed->{is_mapped} = $search_field->is_mapped;
- 282: $search_field_unblessed->{aliases} = $search_fields_aliases->{$search_field_unblessed->{name}};
- 283: push @all_search_fields, $search_field_unblessed;
- 284: }
- in CGI::Compile::ROOT::kohadevbox_koha_admin_searchengine_elasticsearch_mappings_2epl::__ANON__ at /kohadevbox/koha/admin/searchengine/elasticsearch/mappings.pl line 2
- 1: #!/usr/bin/perl
- 2:
- 3: # This file is part of Koha.
- 4: #
- 5: # Koha is free software; you can redistribute it and/or modify it
- Show function arguments
- in CGI::Compile::__ANON__ at /usr/share/perl5/CGI/Compile.pm line 139
- 136: # this is necessary for MSWin32
- 137: my $orig_warn = $SIG{__WARN__} || sub { warn(@_) };
- 138: local $SIG{__WARN__} = sub { $orig_warn->(@_) unless $_[0] =~ /^No such signal/ };
- 139: $code->($self, $data, $path, $dir, \@args)
- 140: };
- 141: };
- 142:
- in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30
- 27: local *STDOUT = $stdout;
- 28: local *STDERR = $env->{'psgi.errors'};
- 29:
- 30: $code->();
- 31: }
- 32: }
- 33:
- Show function arguments
- in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 90
- 87:
- 88: sub call {
- 89: my($self, $env) = @_;
- 90: $self->_app->($env);
- 91: }
- 92:
- 93: 1;
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50
- 47: my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new(
- 48: script => $file, execute => $self->would_exec($file),
- 49: )->to_app;
- 50: $app->($env);
- 51: }
- 52:
- 53: 1;
- Show function arguments
- in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34
- 31: $env->{'plack.file.PATH_INFO'} = '';
- 32: }
- 33:
- 34: return $self->serve_path($env, $file);
- 35: }
- 36:
- 37: sub locate_file {
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::LogWarn::call at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22
- 19: message => join '', @_
- 20: });
- 21: };
- 22: my $res = $self->app->($env);
- 23:
- 24: return $res;
- 25: }
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::Log4perl::call at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30
- 27: $self->logger->$level($args->{message});
- 28: };
- 29:
- 30: $self->app->($env);
- 31: }
- 32:
- 33: 1;
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20
- 17: my($self, $env) = @_;
- 18:
- 19: my $res = try {
- 20: $self->app->($env);
- 21: } catch {
- 22: $self->transform_error($_, $env);
- 23: };
- in (eval) at /usr/share/perl5/Try/Tiny.pm line 101
- 98: if ( $wantarray ) {
- 99: @ret = $try->();
- 100: } elsif ( defined $wantarray ) {
- 101: $ret[0] = $try->();
- 102: } else {
- 103: $try->();
- 104: };
- in Try::Tiny::try at /usr/share/perl5/Try/Tiny.pm line 94
- 91:
- 92: # failed will be true if the eval dies, because 1 will not be returned
- 93: # from the eval body
- 94: my $failed = not eval {
- 95: $@ = $prev_error;
- 96:
- 97: # evaluate the try block in the correct context
- Show function arguments
- in Plack::Middleware::HTTPExceptions::call at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23
- 20: $self->app->($env);
- 21: } catch {
- 22: $self->transform_error($_, $env);
- 23: };
- 24:
- 25: return $res if ref $res eq 'ARRAY';
- 26:
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::ErrorDocument::call at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15
- 12: my $self = shift;
- 13: my $env = shift;
- 14:
- 15: my $r = $self->app->($env);
- 16:
- 17: $self->response_cb($r, sub {
- 18: my $r = shift;
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71
- 68: return $self->response_cb($app->($env), sub {
- 69: $env->{PATH_INFO} = $orig_path_info;
- 70: $env->{SCRIPT_NAME} = $orig_script_name;
- 71: });
- 72: }
- 73:
- 74: DEBUG && warn "All matching failed.\n";
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
- 61: }
- 62: }
- 63:
- 64: return $self->app->($env);
- 65: }
- 66:
- 67: =head2 get_real_ip
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
- 101: %setenvs
- 102: };
- 103:
- 104: return $self->app->($env);
- 105: }
- 106:
- 107: =head1 AUTHOR
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18
- 15: return $res;
- 16: }
- 17:
- 18: return $self->app->($env);
- 19: }
- 20:
- 21: sub _handle_static {
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
- 65: }
- 66: }
- 67:
- 68: $self->app->($env);
- 69: }
- 70:
- 71: 1;
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
- 21: my $env = shift;
- 22:
- 23: $self->validate_env($env);
- 24: my $res = $self->app->($env);
- 25: return $self->validate_res($res);
- 26: }
- 27:
- Show function arguments
- in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- in (eval) at /usr/share/perl5/Try/Tiny.pm line 101
- 98: if ( $wantarray ) {
- 99: @ret = $try->();
- 100: } elsif ( defined $wantarray ) {
- 101: $ret[0] = $try->();
- 102: } else {
- 103: $try->();
- 104: };
- in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 94
- 91:
- 92: # failed will be true if the eval dies, because 1 will not be returned
- 93: # from the eval body
- 94: my $failed = not eval {
- 95: $@ = $prev_error;
- 96:
- 97: # evaluate the try block in the correct context
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
- 24: my $self = shift;
- 25: my($env) = @_;
- 26:
- 27: my $res = $self->app->($env);
- 28:
- 29: if ( ref($res) && ref($res) eq 'ARRAY' ) {
- 30: my $content_length = Plack::Util::content_length($res->[2]);
- Show function arguments
- in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50
- 47: sub to_app {
- 48: my $self = shift;
- 49: $self->prepare_app;
- 50: return sub { $self->call(@_) };
- 51: }
- 52:
- 53:
- Show function arguments
- in (eval) at /usr/share/perl5/Plack/Util.pm line 145
- 142: sub run_app($$) {
- 143: my($app, $env) = @_;
- 144:
- 145: return eval { $app->($env) } || do {
- 146: my $body = "Internal Server Error";
- 147: $env->{'psgi.errors'}->print($@);
- 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
- in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145
- 142: sub run_app($$) {
- 143: my($app, $env) = @_;
- 144:
- 145: return eval { $app->($env) } || do {
- 146: my $body = "Internal Server Error";
- 147: $env->{'psgi.errors'}->print($@);
- 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
- Show function arguments
- in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195
- 192: my ($self, $env) = @_;
- 193:
- 194: # Run PSGI apps
- 195: my $res = Plack::Util::run_app($self->{app}, $env);
- 196:
- 197: if (ref $res eq 'CODE') {
- 198: $res->(sub { $self->_finalize_response($env, $_[0]) });
- Show function arguments
- in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298
- 295:
- 296: $self->_prepare_env($env);
- 297:
- 298: $self->dispatch_request($env);
- 299:
- 300: DEBUG && warn "[$$] Request done\n";
- 301:
- Show function arguments
- in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 74
- 71: $self->post_accept_hook($c); # user customizable hook
- 72:
- 73: my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info
- 74: if ($ok) {
- 75: $self->process_request($c); # This is where the core functionality of a Net::Server should be.
- 76: } else {
- 77: $self->request_denied_hook($c); # user customizable hook
- Show function arguments
- in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 229
- 226: $prop->{'connected'} = 1;
- 227: print $write "$$ processing\n";
- 228:
- 229: my $ok = eval { $self->run_client_connection; 1 };
- 230: if (! $ok) {
- 231: print $write "$$ exiting\n";
- 232: die $@;
- in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 229
- 226: $prop->{'connected'} = 1;
- 227: print $write "$$ processing\n";
- 228:
- 229: my $ok = eval { $self->run_client_connection; 1 };
- 230: if (! $ok) {
- 231: print $write "$$ exiting\n";
- 232: die $@;
- Show function arguments
- in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 187
- 184: if ($prop->{'child_communication'}) {
- 185: $prop->{'parent_sock'} = $childsock;
- 186: }
- 187: $self->run_child;
- 188: }
- 189: }
- 190: }
- Show function arguments
- in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 111
- 108:
- 109: my $start = $prop->{'min_servers'};
- 110: $self->log(3, "Beginning prefork ($start processes)");
- 111: $self->run_n_children($start);
- 112:
- 113: $self->run_parent;
- 114: }
- Show function arguments
- in Net::Server::run at /usr/share/perl5/Net/Server.pm line 60
- 57: $self->post_bind; # allow for chrooting, becoming a different user and group
- 58:
- 59: $self->pre_loop_hook; # user customizable hook
- 60: $self->loop; # repeat accept/process cycle
- 61:
- 62: $self->server_close; # close the server and release the port
- 63: }
- Show function arguments
- in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106
- 103: max_requests => $options->{max_requests} || 1000,
- 104: user => $options->{user} || $>,
- 105: group => $options->{group} || $),
- 106: listen => $options->{backlog} || 1024,
- 107: check_for_waiting => 1,
- 108: no_client_stdout => 1,
- 109: %extra
- Show function arguments
- in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25
- 22: }
- 23: $self->{net_server_args} = \%nsa if %nsa;
- 24:
- 25: Starman::Server->new->run($app, {%$self});
- 26: }
- 27:
- 28: 1;
- Show function arguments
- in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
- 17: };
- 18:
- 19: $server->{psgi_app_builder} = $self->{builder};
- 20: $server->run($app);
- 21: }
- 22:
- 23: 1;
- Show function arguments
- in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277
- 274: $loader->preload_app($app);
- 275:
- 276: my $server = $self->load_server($loader);
- 277: $loader->run($server);
- 278: }
- 279:
- 280: 1;
- Show function arguments
- at /usr/bin/starman line 38
- 35: }
- 36:
- 37: $runner->set_options(argv => \@argv);
- 38: $runner->run;
- 39:
- 40: __END__
- 41:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement