Changeset 11559 for dan

Timestamp:

05/14/08 11:46:55 (5 years ago)

Author:

aerith

Message:

dan/perl/closxop: 少し古いファイルあげてました

Location:

dan/perl/closxop

Files:

• lib/Closxop.pm (modified) (4 diffs)
• plugins/Closxop/Plugin/Echo.pm (modified) (1 diff)

dan/perl/closxop/lib/Closxop.pm

@@ -6 +6 @@
 
 use CGI;
+use YAML;
 use Path::Class;
 use Class::Component;
+
+use Closxop::Stash;
+use Closxop::Config;
 
 __PACKAGE__->mk_accessors( qw/config plugins stash/ );
@@ -27 +31 @@
         my $config = shift;
 
-        $self->stash({});
+        $self->stash(Closxop::Stash->new);
         $self->setup_config($config);
         $self->setup_plugins;
 
-        $self->stash->{cgi}    = CGI->new;
-        $self->stash->{config} = $self->config->{global};
+        $self->stash->cgi    = CGI->new;
+        $self->stash->config = $self->config->global;
 
         $self;
@@ -52 +56 @@
 
         $config->{global} ||= {};
-
+        $config = Closxop::Config->new($config);
         $self->config($config);
 
@@ -60 +64 @@
 sub setup_plugins {
         my $self = shift;
-        my $path = sprintf "%s/%s/Plugin", $self->config->{global}->{plugin_dir}, ref $self;
+        my $path = sprintf "%s/%s/Plugin", $self->config->global->plugin_dir, ref $self;
 
-        $self->{plugins} = [];
-
+        $self->plugins([]);
         if ( -d $path && -r _ ) {
-                unshift @INC, $self->config->{global}->{plugin_dir};
+                unshift @INC, $self->config->global->plugin_dir;
 
                 $self->{plugin_dir} = Path::Class::Dir->new($path);
-                $self->find_plugin($self->{plugin_dir})->load_plugins(@{$self->{plugins}});
+                $self->find_plugin($self->{plugin_dir})->load_plugins(@{$self->plugins});
 
                 shift @INC;

dan/perl/closxop/plugins/Closxop/Plugin/Echo.pm

@@ -9 +9 @@
         my $self    = shift;
         my $context = shift;
+        warn $context->stash->cgi;
 }