Dispatcher and router approach at slow speed

areno.psgi

@@ -7,7 +7,7 @@ sub {
     my ($env) = @_;
 
     my $areno = new Areno();
-    $areno->run();
+    $areno->run($env);
 
     return [$areno->status(), $areno->headers(), $areno->body()];
 }

lib/Areno.pm

@@ -2,6 +2,9 @@ package Areno;
 
 use strict;
 
+use Cwd;
+use Areno::Dispatch;
+
 sub new {
     my ($class) = @_;
 
@@ -12,13 +15,31 @@ sub new {
                 'Content-Type' => 'text/html',
             ],
             body => ['I am Areno.'],
-        }
+        },
+        dispatch => new Areno::Dispatch(),
     };
     bless $this, $class;
 
+    $this->init();
+
     return $this;
 }
 
+sub init {
+    my ($this) = @_;
+
+    my $base_path = getcwd() || '.';
+    my $sites_path = "$base_path/sites";
+
+    opendir my($sites), $sites_path;
+    die "No 'sites' directory found at $base_path" unless $sites;
+    my @sites = grep /\w/, grep {-d "$sites_path/$_"} readdir $sites;
+    close $sites;
+    die "No sites found in $sites_path" unless @sites;
+
+    warn Dumper(\@sites); use Data::Dumper;
+}
+
 sub status {
     my ($this) = @_;
 
@@ -38,8 +59,10 @@ sub body {
 }
 
 sub run {
-    my ($this) = @_;
+    my ($this, $env) = @_;
 
+    #my $page = $this->{dispatch}->dispatch($env);
+    #$page->run();
 }
 
 1;

lib/Areno/Dispatch.pm

@@ -0,0 +1,24 @@
+package Areno::Dispatch;
+
+use strict;
+
+sub new {
+    my ($class) = @_;
+
+    my $this = {    
+    };
+    bless $this, $class;
+
+    return $this;
+}
+
+sub dispatch {
+    my ($this, $env) = @_;
+
+    my $server_name = $env->{SERVER_NAME} || 'default';
+    my $request_uri = $env->{REQUEST_URI} || '/';
+
+
+}
+
+1;