Skip to content

Instantly share code, notes, and snippets.

/xootom-20110701-1842.txt

Created July 1, 2011 17:42
Download ZIP
Debugging from WG8
Raw
xootom-20110701-1842.txt
Error trace
Can't call method "session" on an undefined value at /data/WebGUI/lib/WebGUI/Asset/Wobject/Search.pm line 37.
WebGUI::Session::Log=HASH(0xd50c118)
in WebGUI::Middleware::StackTrace::__ANON__ at /data/WebGUI/lib/WebGUI.pm line 170
167: $session->log->debug($e->package.":".$e->line." - ".$e->trace);
168: }
169: elsif ( $@ ) {
170: $session->log->error( $@ );
171: }
172: else {
173:
Show function arguments
Show lexical variables
in WebGUI::handle at /data/WebGUI/lib/WebGUI.pm line 76
73:
74: # Handle the request
75:
76: $self->handle($session);
77:
78: my $response = $session->response;
79: my $psgi_response = $response->finalize;
Show function arguments
Show lexical variables
in WebGUI::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/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
Show lexical variables
in Plack::App::URLMap::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug/Base.pm line 23
20: my $res = shift;
21: $after->($res) if $after && ref $after eq 'CODE';
22: push @{$env->{'plack.debug.panels'}}, $panel;
23: });
24: }
25:
26: sub run { }
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::Base::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Debug.pm line 136
133:
134: $env->{'plack.debug.panels'} = [];
135:
136: my $res = $self->app->($env);
137: $self->response_cb($res, sub {
138: my $res = shift;
139: my $headers = Plack::Util::headers($res->[1]);
Show function arguments
Show lexical variables
in Plack::Middleware::Debug::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/WebGUI/lib/WebGUI/Middleware/StackTrace.pm line 50
47: sub call {
48: my($self, $env) = @_;
49:
50: my $res = try { $self->app->($env) };
51:
52: if( my $trace = $env->{'webgui.session'}->log->{_stacktrace} ) {
53:
Show function arguments
Show lexical variables
in WebGUI::Middleware::StackTrace::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 71
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
71: if ( $wantarray ) {
72: @ret = $try->();
73: } elsif ( defined $wantarray ) {
74: $ret[0] = $try->();
Show lexical variables
in (eval) at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 67
64:
65: # failed will be true if the eval dies, because 1 will not be returned
66: # from the eval body
67: $failed = not eval {
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
in Try::Tiny::try at /data/WebGUI/lib/WebGUI/Middleware/StackTrace.pm line 50
47: sub call {
48: my($self, $env) = @_;
49:
50: my $res = try { $self->app->($env) };
51:
52: if( my $trace = $env->{'webgui.session'}->log->{_stacktrace} ) {
53:
Show function arguments
Show lexical variables
in WebGUI::Middleware::StackTrace::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/WebGUI/lib/WebGUI/Middleware/Maintenance.pm line 66
63: return [ 503, ['Content-Type' => 'text/plain'], [ 'Service Unavailable' ] ];
64: }
65: }
66: return $self->app->($env);
67: }
68:
69: 1;
Show function arguments
Show lexical variables
in WebGUI::Middleware::Maintenance::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/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
Show lexical variables
in Plack::Middleware::ErrorDocument::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/HTTPExceptions.pm line 14
11: my($self, $env) = @_;
12:
13: my $res = try {
14: $self->app->($env);
15: } catch {
16: $self->transform_error($_, $env);
17: };
Show function arguments
Show lexical variables
in Plack::Middleware::HTTPExceptions::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 71
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
71: if ( $wantarray ) {
72: @ret = $try->();
73: } elsif ( defined $wantarray ) {
74: $ret[0] = $try->();
Show lexical variables
in (eval) at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 67
64:
65: # failed will be true if the eval dies, because 1 will not be returned
66: # from the eval body
67: $failed = not eval {
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
in Try::Tiny::try at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/HTTPExceptions.pm line 17
14: $self->app->($env);
15: } catch {
16: $self->transform_error($_, $env);
17: };
18:
19: return $res if ref $res eq 'ARRAY';
20:
Show function arguments
Show lexical variables
in Plack::Middleware::HTTPExceptions::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/WebGUI/lib/WebGUI/Middleware/Session.pm line 68
65: my $debug = $env->{'webgui.debug'} = $self->canShowDebug($env);
66:
67: # Run the app
68: my $res = $app->($env);
69:
70: # Use callback style response
71: return $self->response_cb(
Show function arguments
Show lexical variables
in WebGUI::Middleware::Session::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/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
Show lexical variables
in Plack::Middleware::Static::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Conditional.pm line 19
16: my($self, $env) = @_;
17:
18: my $app = $self->condition->($env) ? $self->middleware : $self->app;
19: return $app->($env);
20: }
21:
22: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Conditional::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Status.pm line 29
26: my $res = $self->_handle($env);
27: return $res if $res;
28:
29: return $self->app->($env);
30: }
31:
32: sub _handle {
Show function arguments
Show lexical variables
in Plack::Middleware::Status::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/WebGUI/lib/WebGUI/Middleware/Snoop.pm line 38
35: my $snoop = q|<html><head><title>Snoopy</title></head><body><div style="width: 600px; padding: 200px;">&#87;&#104;&#121;&#32;&#119;&#111;&#117;&#108;&#100;&#32;&#121;&#111;&#117;&#32;&#116;&#121;&#112;&#101;&#32;&#105;&#110;&#32;&#116;&#104;&#105;&#115;&#32;&#85;&#82;&#76;&#63;&#32;&#82;&#101;&#97;&#108;&#108;&#121;&#46;&#32;&#87;&#104;&#97;&#116;&#32;&#119;&#101;&#114;&#101;&#32;&#121;&#111;&#117;&#32;&#101;&#120;&#112;&#101;&#99;&#116;&#105;&#110;&#103;&#32;&#116;&#111;&#32;&#115;&#101;&#101;&#32;&#104;&#101;&#114;&#101;&#63;&#32;&#89;&#111;&#117;&#32;&#114;&#101;&#97;&#108;&#108;&#121;&#32;&#110;&#101;&#101;&#100;&#32;&#116;&#111;&#32;&#103;&#101;&#116;&#32;&#97;&#32;&#108;&#105;&#102;&#101;&#46;&#32;&#65;&#114;&#101;&#32;&#121;&#111;&#117;&#32;&#115;&#116;&#105;&#108;&#108;&#32;&#104;&#101;&#114;&#101;&#63;&#32;&#83;&#101;&#114;&#105;&#111;&#117;&#115;&#108;&#121;&#44;&#32;&#121;&#111;&#117;&#32;&#110;&#101;&#101;&#100;&#32;&#116;&#111;&#32;&#103;&#111;&#32;&#100;&#111;&#32;&#115;&#111;&#109;&#101;&#116;&#104;&#105;&#110;&#103;&#32;&#101;&#108;&#115;&#101;&#46;&#32;&#73;&#32;&#116;&#104;&#105;&#110;&#107;&#32;&#121;&#111;&#117;&#114;&#32;&#98;&#111;&#115;&#115;&#32;&#105;&#115;&#32;&#99;&#97;&#108;&#108;&#105;&#110;&#103;&#46;</div></body></html>|;
36: return [ 200, [ 'Content-Type' => 'text/html' ], [ $snoop ] ];
37: } else {
38: return $self->app->($env);
39: }
40: }
41:
Show function arguments
Show lexical variables
in WebGUI::Middleware::Snoop::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/SimpleContentFilter.pm line 12
9: sub call {
10: my $self = shift;
11:
12: my $res = $self->app->(@_);
13: $self->response_cb($res, sub {
14: my $res = shift;
15: my $h = Plack::Util::headers($res->[1]);
Show function arguments
Show lexical variables
in Plack::Middleware::SimpleContentFilter::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/Log4perl.pm line 29
26: $self->logger->$level($args->{message});
27: };
28:
29: $self->app->($env);
30: }
31:
32: 1;
Show function arguments
Show lexical variables
in Plack::Middleware::Log4perl::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/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
Show lexical variables
in Plack::App::URLMap::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/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
Show lexical variables
in Plack::Middleware::Lint::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/StackTrace.pm line 31
28:
29: my $caught;
30: my $res = try {
31: $self->app->($env);
32: } catch {
33: $caught = $_;
34: [ 500, [ "Content-Type", "text/plain; charset=utf-8" ], [ no_trace_error(utf8_safe($caught)) ] ];
Show function arguments
Show lexical variables
in Plack::Middleware::StackTrace::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 71
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
71: if ( $wantarray ) {
72: @ret = $try->();
73: } elsif ( defined $wantarray ) {
74: $ret[0] = $try->();
Show lexical variables
in (eval) at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Try/Tiny.pm line 67
64:
65: # failed will be true if the eval dies, because 1 will not be returned
66: # from the eval body
67: $failed = not eval {
68: $@ = $prev_error;
69:
70: # evaluate the try block in the correct context
in Try::Tiny::try at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/StackTrace.pm line 35
32: } catch {
33: $caught = $_;
34: [ 500, [ "Content-Type", "text/plain; charset=utf-8" ], [ no_trace_error(utf8_safe($caught)) ] ];
35: };
36:
37: if ($trace && ($caught || ($self->force && ref $res eq 'ARRAY' && $res->[0] == 500)) ) {
38: my $text = $trace->as_string;
Show function arguments
Show lexical variables
in Plack::Middleware::StackTrace::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/AccessLog.pm line 21
18: my $self = shift;
19: my($env) = @_;
20:
21: my $res = $self->app->($env);
22:
23: return $self->response_cb($res, sub {
24: my $res = shift;
Show function arguments
Show lexical variables
in Plack::Middleware::AccessLog::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Middleware/ContentLength.pm line 10
7:
8: sub call {
9: my $self = shift;
10: my $res = $self->app->(@_);
11:
12: return $self->response_cb($res, sub {
13: my $res = shift;
Show function arguments
Show lexical variables
in Plack::Middleware::ContentLength::call at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Component.pm line 39
36: sub to_app {
37: my $self = shift;
38: $self->prepare_app;
39: return sub { $self->call(@_) };
40: }
41:
42:
Show function arguments
Show lexical variables
in Plack::Component::__ANON__ at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Util.pm line 160
157: sub run_app($$) {
158: my($app, $env) = @_;
159:
160: return eval { $app->($env) } || do {
161: my $body = "Internal Server Error";
162: $env->{'psgi.errors'}->print($@);
163: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
Show function arguments
Show lexical variables
in (eval) at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Util.pm line 160
157: sub run_app($$) {
158: my($app, $env) = @_;
159:
160: return eval { $app->($env) } || do {
161: my $body = "Internal Server Error";
162: $env->{'psgi.errors'}->print($@);
163: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
in Plack::Util::run_app at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/HTTP/Server/PSGI.pm line 174
171: $env->{'psgi.input'} = $input;
172: }
173:
174: $res = Plack::Util::run_app $app, $env;
175: last;
176: }
177: if ($reqlen == -2) {
Show function arguments
Show lexical variables
in HTTP::Server::PSGI::handle_connection at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/HTTP/Server/PSGI.pm line 134
131: 'psgix.io' => $conn,
132: };
133:
134: $self->handle_connection($env, $conn, $app);
135: $conn->close;
136: }
137: }
Show function arguments
Show lexical variables
in HTTP::Server::PSGI::accept_loop at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/HTTP/Server/PSGI.pm line 62
59: sub run {
60: my($self, $app) = @_;
61: $self->setup_listener();
62: $self->accept_loop($app);
63: }
64:
65: sub prepare_socket_class {
Show function arguments
Show lexical variables
in HTTP::Server::PSGI::run at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Handler/HTTP/Server/PSGI.pm line 14
11:
12: sub run {
13: my($self, $app) = @_;
14: $self->_server->run($app);
15: }
16:
17: sub _server {
Show function arguments
Show lexical variables
in Plack::Handler::HTTP::Server::PSGI::run at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Loader.pm line 87
84:
85: sub run {
86: my($self, $server, $builder) = @_;
87: $server->run($self->{app});
88: }
89:
90: 1;
Show function arguments
Show lexical variables
in Plack::Loader::run at /data/wre/prereqs/lib/perl5/site_perl/5.10.0/Plack/Runner.pm line 263
260: $loader->preload_app($app);
261:
262: my $server = $self->load_server($loader);
263: $loader->run($server);
264: }
265:
266: 1;
Show function arguments
Show lexical variables
in Plack::Runner::run at /data/wre/prereqs/bin/plackup line 10
7:
8: my $runner = Plack::Runner->new;
9: $runner->parse_options(@ARGV);
10: $runner->run;
11:
12: __END__
13:
Show function arguments
Show lexical variables
Hello admin. Click here to log out.
· Turn Admin On!
Test Appliance
Home
webgui
Getting Started
Your Next Step
The Latest News
Tell A Friend
Documentation
Site Map
Welcome
The WebGUI Content Engine® is a powerful and easy to use system for managing web sites, and building web applications. It provides thousands of features out of the box, and lots of plug-in points so you can extend it to match your needs. It's easy enough for the average business user, but powerful enough for any large enterprise.
There are thousands of small and large businesses, schools, universities, governments, associations, clubs, churches, projects, and communities using WebGUI all over the world today. A brief list of some of them can be found here. Your site should be on that list.
If you're new to WebGUI, click here to learn how to get started. If you're getting up to speed, check out some ways you can do more faster. If this is all old hat to you, then check out the latest news. No matter what level you're at tell your friends about WebGUI.
Key Benefits
Easy To Use - WebGUI is absolutely easy to use. WebGUI 7 has a completely revamped user interface to make it even easier to use. There are lots of visual cues, consistent icons, helper apps, and a huge repository of built-in help files.
Workflow & Versioning - Never again worry about content getting put on your site that you don't want there. Never again lose your old content after making an edit. And never again push out new changes until you're absolutely ready to release them. WebGUI's workflow and versioning system is fast, flexible, powerful, and easy to use.
Everything's a Template - Worry nevermore about your CMS forcing you into a mould that doesn't suit you. With WebGUI everything a site visitor can see is a customizable template, so you can make it look exactly how you want. Moreover if you're the type that strives for excellence rest in the knowledge that all the templates that come with WebGUI are XHTML 1.0 strict compliant.
Localization - WebGUI's entire user interface is set up to be internationalized. Visit one of the WebGUI Worldwide member sites to get translations for your language. Stay there to get support and services in your native language. Feel confident in the knowledge that WebGUI will work with your native characters because it's UTF-8 compliant. On top of that WebGUI allows you to customize dates, currency, and weights to match your locale.
Pluggable By Design - With WebGUI 7 you have many plug-in points to add your own functionality. And best of all, the API is stable and standardized. Write it today and it will still work years from now and survive all upgrades.
© 2011 Test Appliance
plain black
Hide »
Timer
0.384317 s
Memory
74,960 KB
Request Variables
Perl Config
MySQL Trace
81 Queries
Response
Logger
2 messages
Environment
Asset Performance
5 events
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment