Changeset 24060 for lang/perl/MENTA/trunk

Timestamp:

11/18/08 12:00:13 (5 years ago)

Author:

tokuhirom

Message:

- プラグイン機構は package 宣言ありにした。
- 多少 css いじったけど、かっこよくはらならない。だれかやって ＞＜

Location:

lang/perl/MENTA/trunk

Files:

• app/controller/index.mt (modified) (1 diff)
• app/controller/tutorial.mt (modified) (2 diffs)
• app/data/data.sqlite (modified) (previous)
• app/static/style-sites.css (modified) (1 diff)
• app/tmpl/footer.mt (modified) (1 diff)
• app/tmpl/header.mt (modified) (1 diff)
• lib/MENTA.pm (modified) (2 diffs)
• lib/MENTA/Plugin.pm (added)
• plugins/counter.pl (modified) (1 diff)
• plugins/mail.pl (modified) (2 diffs)
• plugins/sql.pl (modified) (2 diffs)

lang/perl/MENTA/trunk/app/controller/index.mt

@@ -10 +10 @@
 //--></script>
 
-<h1><?= $title ?></h1>
 <p><?= localtime time ?></p>
 

lang/perl/MENTA/trunk/app/controller/tutorial.mt

@@ -1 +1 @@
 ? my $title = "MENTA 取り扱い説明書"
 ?=r render_partial('header.mt', $title)
-
-<h1><?= $title ?></h1>
 
 <h2>ダウンロードする</h2>
@@ -47 +45 @@
 <p><a href="<?= uri_for('counter') ?>">実際にうごいている様子</a></p>
 
+<h2>プラグインの作り方</h2>
+
+あとでかく。
+
 ?=r render_partial('footer.mt')

lang/perl/MENTA/trunk/app/static/style-sites.css

@@ -1 @@
-body { font-family: monospace }
-h1   { padding: 0.5em }
+body { font-family: monospace; }
+.container { width: 640px; margin: auto;padding: 0 0 0 0; }
+h1   { padding: 0.5em;  margin-top: 0; margin-bottom: 0; }
+.bodyContainer { background-color: white; padding-left: 4px; padding-right: 4px; }
 
 table {

lang/perl/MENTA/trunk/app/tmpl/footer.mt

@@ +1 @@
+</div>
 <p><a href="<?= uri_for('index') ?>">トップにもどる</a></p>
+</div>

lang/perl/MENTA/trunk/app/tmpl/header.mt

@@ -3 +3 @@
 <title><? if ($title) { ?><?= "$title - " ?><? } ?>MENTA</title>
 <link rel="stylesheet" type="text/css" href="<?= docroot ?>static/style-sites.css">
+<div class="container">
+<h1><? if ($title) { ?><?= "$title - " ?><? } ?>MENTA</h1>
+<div class="bodyContainer">

lang/perl/MENTA/trunk/lib/MENTA.pm

@@ -10 +10 @@
 our $CARRIER;
 our $STASH;
+our $PLUGIN_LOADED;
 our $BUILT = 0;
 BEGIN {
@@ -416 +417 @@
 sub load_plugin {
     my $plugin = shift;
-    require_once($MENTA::BUILT ? "plugins/${plugin}.pl" : "plugins/${plugin}.pl");
+    return if $MENTA::PLUGIN_LOADED->{$plugin};
+    my $path = "plugins/${plugin}.pl";
+    require $path;
+    $MENTA::PLUGIN_LOADED->{$plugin}++;
+    my $package = __menta_extract_package($path);
+    no strict 'refs';
+    for (
+        grep { /$plugin/o }
+        grep { defined &{"${package}::$_"} }
+        keys %{"${package}::"}
+    ) {
+        *{"main::$_"} = *{"${package}::$_"}
+    }
+}
+
+sub __menta_extract_package {
+    my $modulefile = shift;
+    open my $fh, '<', $modulefile or die "$modulefile を開けません: $!";
+    my $in_pod = 0;
+    while (<$fh>) {
+        $in_pod = 1 if m/^=\w/;
+        $in_pod = 0 if /^=cut/;
+        next if ( $in_pod || /^=cut/ );    # skip pod text
+        next if /^\s*\#/;
+
+        /^\s*package\s+(.*?)\s*;/ and return $1;
+    }
+    return;
 }
 

lang/perl/MENTA/trunk/plugins/counter.pl

@@ -1 @@
-use MENTA;
+package MENTA::Plugin::Counter;
+use MENTA::Plugin;
 use Fcntl ':flock';
 use Carp;

lang/perl/MENTA/trunk/plugins/mail.pl

@@ -1 @@
-#   mb_send_mail('to@example.jp', 'サブジェクト', '本文', 'From: from@example.jp');
-# という風にして、送るとよい。
-# TODO: ヘッダの処理とかが甘いので、なんとかする
-# iso-2022-jp に MIME encode する？
-
-use utf8;
+package MENTA::Plugin::Mail;
+use MENTA::Plugin;
 use Symbol ();
 
@@ -39 +35 @@
 
 1;
+__END__
+#   mb_send_mail('to@example.jp', 'サブジェクト', '本文', 'From: from@example.jp');
+# という風にして、送るとよい。
+# TODO: ヘッダの処理とかが甘いので、なんとかする
+# iso-2022-jp に MIME encode する？
+

lang/perl/MENTA/trunk/plugins/sql.pl

@@ -1 @@
-# AUTHOR: tokuhirom, mattn
-
-use strict;
-use warnings;
-use utf8;
+package MENTA::Plugin::SQL;
+use MENTA::Plugin;
 use DBI;
 
@@ -76 +73 @@
 
 1;
+# AUTHOR: tokuhirom, mattn