diff options
author | roberto@natty32 <roberto@natty32> | 2011-05-02 08:36:57 +0200 |
---|---|---|
committer | roberto@natty32 <roberto@natty32> | 2011-05-02 08:36:57 +0200 |
commit | 6c9d7239f200179f3a5a0dd28a5b4824dfc1483e (patch) | |
tree | 134d9698188624adf226b102ee66bcd70385013a /tests/Responder.pm | |
parent | 4b75e2577e81488960fc517c362b30feaff80928 (diff) | |
download | uwsgi-6c9d7239f200179f3a5a0dd28a5b4824dfc1483e.tar.gz |
uGreen support added to perl
Diffstat (limited to 'tests/Responder.pm')
-rw-r--r-- | tests/Responder.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/Responder.pm b/tests/Responder.pm index c2264e26..dc00ffe4 100644 --- a/tests/Responder.pm +++ b/tests/Responder.pm @@ -29,6 +29,14 @@ sub getline { $self->{_counter}++; return "connected to http://projects.unbit.it<br/>"; } + elsif ($self->{_counter} == 7) { + $self->{_counter}++; + print "suspending the app...\n"; + uwsgi::async_sleep(3); + uwsgi::suspend(); + print "resumed the app\n"; + return "Suspended and Resumed the app<br/>"; + } elsif ($self->{_counter} % 2 == 0) { $self->{_counter}++; print "sleeping...\n"; |