Changeset 17885

Timestamp:

08/19/08 07:51:50 (5 years ago)

Author:

tokuhirom

Message:

- run with poe
- select interface with argv

Files:

• lang/perl/HTTP-Engine/trunk/tools/profile2.pl (modified) (3 diffs)

lang/perl/HTTP-Engine/trunk/tools/profile2.pl

@@ -4 +4 @@
 use HTTP::Engine;
 use LWP::UserAgent;
+
+my $module = shift || 'ServerSimple';
+print "module: $module\n";
+Class::MOP::load_class("HTTP::Engine::Interface::$module");
 
 test_tcp(
@@ -15 +19 @@
     server => sub {
         my $port = shift;
-        require Devel::NYTProf;
-        $ENV{NYTPROF} = 'start=no';
-        Devel::NYTProf->import;
-        DB::enable_profile();
-        $SIG{TERM} = sub { DB::_finish(); exit; };
+
+        if (!$ENV{NO_NYTPROF}) {
+            require Devel::NYTProf;
+            $ENV{NYTPROF} = 'start=no';
+            Devel::NYTProf->import;
+            DB::enable_profile();
+            $SIG{TERM} = sub { DB::_finish(); exit; };
+        }
+
         HTTP::Engine->new(
             interface => {
-                module => 'ServerSimple',
+                module => $module,
                 args => {
                     port => $port,
@@ -32 +40 @@
             },
         )->run;
+        if ($module eq 'POE') {
+            POE::Kernel->run();
+        }
     },
 );