- 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 |
- 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)' |
- 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:
- 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)' |
- 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
$_[0] | 'HASH(0x55b5d1819190)' |
- 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)' |
- 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)' |
- 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' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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 100
97: if ( $wantarray ) {
98: @ret = $try->();
99: } elsif ( defined $wantarray ) {
100: $ret[0] = $try->();
101: } else {
102: $try->();
103: };
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- 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
$_[0] | 'CODE(0x55b5ca6587d8)' |
$_[1] | 'HASH(0x55b5d2879960)' |
- 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)' |
- 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)' |
- 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)' |
- 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 $@;
- 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)' |
- 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 |
- 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)' |
- 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' |
- 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)' |
- 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)' |
- 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)' |
- 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)' |
- at /usr/bin/starman line 38
35: }
36:
37: $runner->set_options(argv => \@argv);
38: $runner->run;
39:
40: __END__
41: