Changeset 11369

Timestamp:

05/11/08 00:56:26 (5 years ago)

Author:

hio

Message:

Auto::FetchTitle::Plugin, ユーティリティメソッドを追加.

Files:

• lang/perl/tiarra/trunk/module/Auto/FetchTitle/Plugin.pm (modified) (1 diff)

lang/perl/tiarra/trunk/module/Auto/FetchTitle/Plugin.pm

@@ -27 +27 @@
   $this->{hook}   = undef;
   $this;
+}
+
+# -----------------------------------------------------------------------------
+# $pkg->config().
+# (util)
+#
+sub config
+{
+  shift->{config}
+}
+
+# -----------------------------------------------------------------------------
+# $pkg->notice($msg).
+# (util)
+#
+sub notice
+{
+  my $this = shift;
+  my $msg  = shift;
+  defined($msg) or $msg = '';
+  RunLoop->shared_loop->notify_msg($msg);
 }