factor dispatcher out into Web::Dispatch

[catagits/Web-Simple.git] / lib / Web / Simple.pm

diff --git a/lib/Web/Simple.pm b/lib/Web/Simple.pm
index e74caad..960fc01 100644 (file)
--- a/lib/Web/Simple.pm
+++ b/lib/Web/Simple.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings FATAL => 'all';
 use 5.008;
 
-our $VERSION = '0.003';
+our $VERSION = '0.004';
 
 sub setup_all_strictures {
   strict->import;
@@ -23,7 +23,7 @@ sub setup_dispatch_strictures {
 sub import {
   setup_dispatch_strictures();
   my ($class, $app_package) = @_;
-  $class->_export_into($app_package);
+  $class->_export_into($app_package||caller);
 }
 
 sub _export_into {
@@ -31,7 +31,7 @@ sub _export_into {
   {
     no strict 'refs';
     *{"${app_package}::dispatch"} = sub (&) {
-      $app_package->_setup_dispatcher([ $_[0]->() ]);
+      $app_package->_setup_dispatcher($_[0]);
     };
     *{"${app_package}::response_filter"} = sub (&) {
       $app_package->_construct_response_filter($_[0]);
@@ -39,9 +39,6 @@ sub _export_into {
     *{"${app_package}::redispatch_to"} = sub {
       $app_package->_construct_redispatch($_[0]);
     };
-    *{"${app_package}::subdispatch"} = sub ($) {
-      $app_package->_construct_subdispatch($_[0]);
-    };
     *{"${app_package}::default_config"} = sub {
       $app_package->_setup_default_config(@_);
     };