Changeset 18380 for lang

Timestamp:

08/28/08 13:37:48 (3 months ago)

Author:

tokuhirom

Message:

quick hack for fixing POE::Filter::IRC's bug.

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/IRCClient.pm (modified) (1 diff)

lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/IRCClient.pm

@@ -6 +6 @@
 use POE::Sugar::Args;
 use POE::Component::IRC;
+use POE::Filter::IRC::Compat;
+
+{
+    # HACK HACK HACK
+    # POE::Filter::IRC::Compat->get_one returns undef when invalid CTCP request.
+    # POE::Filter::Stackable dies when get the undef!
+    my $meta = Class::MOP::Class->initialize('POE::Filter::IRC::Compat') or die "cannot get meta class of the POE::Filter::IRC::Compat";
+    $meta->add_around_method_modifier('get_one', sub {
+        my ($next, @args) = @_;
+        my $result = $next->(@args);
+        $result ? $result : [];
+    });
+    $meta->make_immutable;
+}
 
 use Encode;