Error trace

The method Koha::Biblio->adopt_items_from_biblio is not covered by tests!

Trace begun at /kohadevbox/koha/Koha/Object.pm line 744
Koha::Object::AUTOLOAD('Koha::Biblio=HASH(0x55b5d1888718)', 'Koha::Biblio=HASH(0x55b5d1bbac00)') called at /kohadevbox/koha/cataloguing/merge.pl line 93
eval {...} at /kohadevbox/koha/cataloguing/merge.pl line 2
CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__('CGI::Compile=HASH(0x55b5d224f408)', '', '/kohadevbox/koha/cataloguing/merge.pl', '/kohadevbox/koha/cataloguing', 'ARRAY(0x55b5d22986e0)') 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(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95
Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55b5d03e24c8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50
Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)', '/kohadevbox/koha/cataloguing/merge.pl') called at /usr/share/perl5/Plack/App/File.pm line 34
Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b5c3e1c958)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71
Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b5ca643748)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64
Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)', 'HASH(0x55b5d1819190)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d1819190)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104
Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18
Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b5cb6a2d60)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68
Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24
Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b5c3e1c748)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38
Plack::Middleware::StackTrace::try {...}  at /usr/share/perl5/Try/Tiny.pm line 100
eval {...} at /usr/share/perl5/Try/Tiny.pm line 93
Try::Tiny::try('CODE(0x55b5d19a4718)', 'Try::Tiny::Catch=REF(0x55b5d1b09538)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42
Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27
Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b5ca584728)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Plack/Component.pm line 50
Plack::Component::__ANON__('HASH(0x55b5d2879960)') 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(0x55b5ca6587d8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 195
Starman::Server::dispatch_request('Starman::Server=HASH(0x55b5c378f0b8)', 'HASH(0x55b5d2879960)') called at /usr/share/perl5/Starman/Server.pm line 298
Starman::Server::process_request('Starman::Server=HASH(0x55b5c378f0b8)', 'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)') called at /usr/share/perl5/Net/Server.pm line 72
Net::Server::run_client_connection('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 225
eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225
Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 183
Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b5c378f0b8)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107
Net::Server::PreFork::loop('Starman::Server=HASH(0x55b5c378f0b8)') called at /usr/share/perl5/Net/Server.pm line 58
Net::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'port', 'ARRAY(0x55b5c3d97390)', '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, 'log_file', '/var/log/koha/kohadev/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/kohadev/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106
Starman::Server::run('Starman::Server=HASH(0x55b5c378f0b8)', 'CODE(0x55b5c378ef68)', 'HASH(0x55b5c378ed10)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25
Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b5c378ef80)', 'CODE(0x55b5c378ef68)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20
Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b5c34f6408)', 'Plack::Handler::Starman=HASH(0x55b5c378ef80)') called at /usr/share/perl5/Plack/Runner.pm line 277
Plack::Runner::run('Plack::Runner=HASH(0x55b5c349a408)') called at /usr/bin/starman line 38
 at /usr/share/perl5/Exception/Class/Base.pm line 88
  1. 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

    $_[0]'Koha::Exceptions::Object::MethodNotCoveredByTests'
    $_[1]'error'
    $_[2]'The method Koha::Biblio->adopt_items_from_biblio is not covered by tests!'
    $_[3]'show_trace'
    $_[4]1
  2. in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 744
      741:     Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
      742:         error      => sprintf("The method %s->%s is not covered by tests!", ref($self), $method),
      743:         show_trace => 1
      744:     ) unless grep { $_ eq $method } @known_methods;
      745: 
      746: 
      747:     my $r = eval { $self->_result->$method(@_) };
    

    Show function arguments

    $_[0]'Koha::Biblio=HASH(0x55b5d1888718)'
    $_[1]'Koha::Biblio=HASH(0x55b5d1bbac00)'
  3. in (eval) at /kohadevbox/koha/cataloguing/merge.pl line 93
       90:     my $biblio = Koha::Biblios->find($ref_biblionumber);
       91:     foreach my $biblionumber (@biblionumbers) {
       92:         my $from_biblio = Koha::Biblios->find($biblionumber);
       93:         $biblio->adopt_items_from_biblio($from_biblio);
       94:         $from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 });
       95:     }
       96: 
    
  4. in CGI::Compile::ROOT::kohadevbox_koha_cataloguing_merge_2epl::__ANON__ at /kohadevbox/koha/cataloguing/merge.pl line 2
        1: #!/usr/bin/perl
        2: 
        3: # Copyright 2009 BibLibre
        4: # Parts Copyright Catalyst IT 2011
        5: #
    

    Show function arguments

    $_[0]'CGI::Compile=HASH(0x55b5d224f408)'
    $_[1]''
    $_[2]'/kohadevbox/koha/cataloguing/merge.pl'
    $_[3]'/kohadevbox/koha/cataloguing'
    $_[4]'ARRAY(0x55b5d22986e0)'
  5. 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: 
    
  6. 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

    $_[0]'HASH(0x55b5d1819190)'
  7. in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 95
       92: 
       93: sub call {
       94:     my($self, $env) = @_;
       95:     $self->_app->($env);
       96: }
       97: 
       98: 1;
    

    Show function arguments

    $_[0]'Plack::App::WrapCGI=HASH(0x55b5d03e24c8)'
    $_[1]'HASH(0x55b5d1819190)'
  8. 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

    $_[0]'HASH(0x55b5d1819190)'
  9. 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

    $_[0]'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'
    $_[1]'HASH(0x55b5d1819190)'
    $_[2]'/kohadevbox/koha/cataloguing/merge.pl'
  10. 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

    $_[0]'Plack::App::CGIBin=HASH(0x55b5c3e1c958)'
    $_[1]'HASH(0x55b5d1819190)'
  11. 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

    $_[0]'HASH(0x55b5d1819190)'
  12. 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

    $_[0]'Plack::App::URLMap=HASH(0x55b5ca643748)'
    $_[1]'HASH(0x55b5d1819190)'
  13. 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

    $_[0]'HASH(0x55b5d1819190)'
  14. 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

    $_[0]'Koha::Middleware::RealIP=HASH(0x55b5cb8ee4f8)'
    $_[1]'HASH(0x55b5d1819190)'
  15. 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

    $_[0]'HASH(0x55b5d1819190)'
  16. 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

    $_[0]'Koha::Middleware::SetEnv=HASH(0x55b5cb8e92a8)'
    $_[1]'HASH(0x55b5d2879960)'
  17. 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

    $_[0]'HASH(0x55b5d2879960)'
  18. 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

    $_[0]'Plack::Middleware::Static=HASH(0x55b5cb6a2d60)'
    $_[1]'HASH(0x55b5d2879960)'
  19. 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

    $_[0]'HASH(0x55b5d2879960)'
  20. 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

    $_[0]'Plack::Middleware::ReverseProxy=HASH(0x55b5cb6a2f10)'
    $_[1]'HASH(0x55b5d2879960)'
  21. 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

    $_[0]'HASH(0x55b5d2879960)'
  22. 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

    $_[0]'Plack::Middleware::Lint=HASH(0x55b5c3e1c748)'
    $_[1]'HASH(0x55b5d2879960)'
  23. 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: 
    
  24. in (eval) at /usr/share/perl5/Try/Tiny.pm line 100
       97:     if ( $wantarray ) {
       98:       @ret = $try->();
       99:     } elsif ( defined $wantarray ) {
      100:       $ret[0] = $try->();
      101:     } else {
      102:       $try->();
      103:     };
    
  25. in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 93
       90: 
       91:   # failed will be true if the eval dies, because 1 will not be returned
       92:   # from the eval body
       93:   my $failed = not eval {
       94:     $@ = $prev_error;
       95: 
       96:     # evaluate the try block in the correct context
    

    Show function arguments

    $_[0]'Plack::Middleware::StackTrace=HASH(0x55b5ca642ae8)'
    $_[1]'HASH(0x55b5d2879960)'
  26. 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

    $_[0]'HASH(0x55b5d2879960)'
  27. 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

    $_[0]'Plack::Middleware::AccessLog=HASH(0x55b5ca584728)'
    $_[1]'HASH(0x55b5d2879960)'
  28. 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

    $_[0]'HASH(0x55b5d2879960)'
  29. 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 ] ];
    
  30. 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

    $_[0]'CODE(0x55b5ca6587d8)'
    $_[1]'HASH(0x55b5d2879960)'
  31. 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

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
    $_[1]'HASH(0x55b5d2879960)'
  32. 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

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
    $_[1]'Net::Server::Proto::UNIX=GLOB(0x55b5d07797f0)'
  33. in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 72
       69:     $self->post_accept_hook($c);    # user customizable hook
       70: 
       71:     my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info
       72:     if ($ok) {
       73:         $self->process_request($c);   # This is where the core functionality of a Net::Server should be.
       74:     } else {
       75:         $self->request_denied_hook($c);     # user customizable hook
    

    Show function arguments

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
  34. in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 225
      222:         $prop->{'connected'} = 1;
      223:         print $write "$$ processing\n";
      224: 
      225:         my $ok = eval { $self->run_client_connection; 1 };
      226:         if (! $ok) {
      227:             print $write "$$ exiting\n";
      228:             die $@;
    
  35. in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 225
      222:         $prop->{'connected'} = 1;
      223:         print $write "$$ processing\n";
      224: 
      225:         my $ok = eval { $self->run_client_connection; 1 };
      226:         if (! $ok) {
      227:             print $write "$$ exiting\n";
      228:             die $@;
    

    Show function arguments

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
  36. in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 183
      180:             if ($prop->{'child_communication'}) {
      181:                 $prop->{'parent_sock'} = $childsock;
      182:             }
      183:             $self->run_child;
      184:         }
      185:     }
      186: }
    

    Show function arguments

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
    $_[1]2
  37. in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 107
      104: 
      105:     my $start = $prop->{'min_servers'};
      106:     $self->log(3, "Beginning prefork ($start processes)");
      107:     $self->run_n_children($start);
      108: 
      109:     $self->run_parent;
      110: }
    

    Show function arguments

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
  38. in Net::Server::run at /usr/share/perl5/Net/Server.pm line 58
       55:     $self->post_bind;           # allow for chrooting, becoming a different user and group
       56: 
       57:     $self->pre_loop_hook;       # user customizable hook
       58:     $self->loop;                # repeat accept/process cycle
       59: 
       60:     $self->server_close;        # close the server and release the port
       61: }
    

    Show function arguments

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
    $_[1]'port'
    $_[2]'ARRAY(0x55b5c3d97390)'
    $_[3]'host'
    $_[4]'*'
    $_[5]'proto'
    $_[6]'tcp'
    $_[7]'serialize'
    $_[8]'none'
    $_[9]'min_servers'
    $_[10]2
    $_[11]'min_spare_servers'
    $_[12]1
    $_[13]'max_spare_servers'
    $_[14]1
    $_[15]'max_servers'
    $_[16]2
    $_[17]'max_requests'
    $_[18]'50'
    $_[19]'user'
    $_[20]'kohadev-koha'
    $_[21]'group'
    $_[22]'kohadev-koha'
    $_[23]'listen'
    $_[24]1024
    $_[25]'check_for_waiting'
    $_[26]1
    $_[27]'no_client_stdout'
    $_[28]1
    $_[29]'log_file'
    $_[30]'/var/log/koha/kohadev/plack-error.log'
    $_[31]'background'
    $_[32]1
    $_[33]'setsid'
    $_[34]1
    $_[35]'pid_file'
    $_[36]'/var/run/koha/kohadev/plack.pid'
  39. 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

    $_[0]'Starman::Server=HASH(0x55b5c378f0b8)'
    $_[1]'CODE(0x55b5c378ef68)'
    $_[2]'HASH(0x55b5c378ed10)'
  40. 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

    $_[0]'Plack::Handler::Starman=HASH(0x55b5c378ef80)'
    $_[1]'CODE(0x55b5c378ef68)'
  41. 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

    $_[0]'Plack::Loader::Delayed=HASH(0x55b5c34f6408)'
    $_[1]'Plack::Handler::Starman=HASH(0x55b5c378ef80)'
  42. 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

    $_[0]'Plack::Runner=HASH(0x55b5c349a408)'
  43. at /usr/bin/starman line 38
       35: }
       36: 
       37: $runner->set_options(argv => \@argv);
       38: $runner->run;
       39: 
       40: __END__
       41: