Index: /lang/perl/Class-Hookable/trunk/t/03_utility/11_delete_callback.0.05.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/11_delete_callback.0.05.t (revision 4010)
+++ /lang/perl/Class-Hookable/trunk/t/03_utility/11_delete_callback.0.05.t (revision 4010)
@@ -0,0 +1,49 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+use Class::Hookable;
+
+my $hook    = Class::Hookable->new;
+my $pluginA = PluginA->new;
+my $pluginB = PluginB->new;
+
+$hook->register_hook(
+    $pluginA,
+    'hook.A' => $pluginA->can('foo'),
+    'hook.B' => $pluginA->can('foo'),
+);
+
+$hook->register_hook(
+    $pluginB,
+    'hook.A' => $pluginB->can('foo'),
+    'hook.B' => $pluginB->can('foo'),
+);
+
+$hook->delete_callback( $pluginA->can('foo') => qw( hook.A ) );
+
+is_deeply(
+    [ $hook->registered_hooks( $pluginA ) ],
+    [qw( hook.B )],
+);
+
+$hook->delete_callback( $pluginB->can('foo') );
+
+is_deeply(
+    [ $hook->registered_hooks( $pluginB ) ],
+    [],
+);
+
+package PluginA;
+
+sub new { bless {}, shift }
+sub foo {}
+1;
+
+package PluginB;
+
+sub new { bless {}, shift }
+sub foo {}
+1;
Index: /lang/perl/Class-Hookable/trunk/t/03_utility/10_delete_hook.0.05.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/10_delete_hook.0.05.t (revision 4010)
+++ /lang/perl/Class-Hookable/trunk/t/03_utility/10_delete_hook.0.05.t (revision 4010)
@@ -0,0 +1,53 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+use Class::Hookable;
+
+my $hook    = Class::Hookable->new;
+my $pluginA = PluginA->new;
+my $pluginB = PluginB->new;
+
+$hook->register_hook(
+    $pluginA,
+    'hook.A' => $pluginA->can('foo'),
+    'hook.B' => $pluginA->can('bar'),
+);
+
+$hook->register_hook(
+    $pluginB,
+    'hook.A' => $pluginB->can('foo'),
+    'hook.B' => $pluginB->can('bar'),
+);
+
+$hook->delete_hook('hook.A', $pluginA);
+
+is_deeply(
+    [ $hook->registered_hooks( $pluginA ) ],
+    [ qw( hook.B ) ],
+);
+
+$hook->delete_hook('hook.B');
+
+is_deeply(
+    [ $hook->registered_callbacks('hook.B') ],
+    [],
+);
+
+package PluginA;
+
+sub new { bless {}, shift }
+sub foo {}
+sub bar {}
+
+1;
+
+package PluginB;
+
+sub new { bless {}, shift }
+sub foo {}
+sub bar {}
+
+1;
Index: /lang/perl/Class-Hookable/trunk/t/03_utility/12_delete_method.0.05.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/12_delete_method.0.05.t (revision 4010)
+++ /lang/perl/Class-Hookable/trunk/t/03_utility/12_delete_method.0.05.t (revision 4010)
@@ -0,0 +1,29 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+use Class::Hookable;
+
+my $hook = Class::Hookable->new;
+my $plugin = Plugin->new;
+
+$hook->register_method(
+    $plugin,
+    'method.A' => $plugin->can('foo'),
+    'method.B' => $plugin->can('bar'),
+);
+
+$hook->delete_method('method.A');
+
+is_deeply(
+    [ $hook->registered_methods( $plugin ) ],
+    [ qw( method.B ) ],
+);
+
+package Plugin;
+
+sub new { bless {}, shift }
+sub foo {}
+sub bar {}
Index: /lang/perl/Class-Hookable/trunk/t/03_utility/14_delete_plugin.0.05.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/14_delete_plugin.0.05.t (revision 4010)
+++ /lang/perl/Class-Hookable/trunk/t/03_utility/14_delete_plugin.0.05.t (revision 4010)
@@ -0,0 +1,54 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+use Class::Hookable;
+
+my $hook = Class::Hookable->new;
+my $plugin = Plugin->new;
+
+$hook->register_hook(
+    $plugin,
+    'hook.A' => $plugin->can('foo'),
+    'hook.B' => $plugin->can('foo'),
+);
+
+$hook->register_method(
+    $plugin,
+    'method.A' => $plugin->can('bar'),
+    'method.B' => $plugin->can('bar'),
+);
+
+$hook->delete_plugin( $plugin => qw( hook.A method.B ) );
+
+is_deeply(
+    [ $hook->registered_hooks( $plugin ) ],
+    [qw( hook.B )],
+);
+
+is_deeply(
+    [ $hook->registered_methods( $plugin ) ],
+    [qw( method.A )],
+);
+
+$hook->delete_plugin( $plugin );
+
+is_deeply(
+    [ $hook->registered_hooks( $plugin ) ],
+    [],
+);
+
+is_deeply(
+    [ $hook->registered_methods( $plugin ) ],
+    [],
+);
+
+package Plugin;
+
+sub new { bless {}, shift }
+sub foo {}
+sub bar {}
+sub baz {}
+1;
Index: /lang/perl/Class-Hookable/trunk/t/03_utility/13_delete_function.0.05.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/13_delete_function.0.05.t (revision 4010)
+++ /lang/perl/Class-Hookable/trunk/t/03_utility/13_delete_function.0.05.t (revision 4010)
@@ -0,0 +1,39 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+use Class::Hookable;
+
+my $hook    = Class::Hookable->new;
+my $plugin  = Plugin->new;
+
+$hook->register_method(
+    $plugin,
+    'method.A' => $plugin->can('foo'),
+    'method.B' => $plugin->can('foo'),
+    'method.C' => $plugin->can('foo'),
+);
+
+$hook->delete_function( $plugin->can('foo') => qw( method.A ) );
+
+is_deeply(
+    [ $hook->registered_methods( $plugin ) ],
+    [qw( method.B method.C )],
+);
+
+$hook->delete_function( $plugin->can('foo') );
+
+is_deeply(
+    [ $hook->registered_methods( $plugin ) ],
+    [],
+);
+
+package Plugin;
+
+sub new { bless {}, shift }
+sub foo {}
+sub bar {}
+
+1;
Index: /ng/perl/Class-Hookable/trunk/t/03_utility/11_delete_callback.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/11_delete_callback.t (revision 2977)
+++  (revision )
@@ -1,49 +1,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-use Class::Hookable;
-
-my $hook    = Class::Hookable->new;
-my $pluginA = PluginA->new;
-my $pluginB = PluginB->new;
-
-$hook->register_hook(
-    $pluginA,
-    'hook.A' => $pluginA->can('foo'),
-    'hook.B' => $pluginA->can('foo'),
-);
-
-$hook->register_hook(
-    $pluginB,
-    'hook.A' => $pluginB->can('foo'),
-    'hook.B' => $pluginB->can('foo'),
-);
-
-$hook->delete_callback( $pluginA->can('foo') => qw( hook.A ) );
-
-is_deeply(
-    [ $hook->registered_hooks( $pluginA ) ],
-    [qw( hook.B )],
-);
-
-$hook->delete_callback( $pluginB->can('foo') );
-
-is_deeply(
-    [ $hook->registered_hooks( $pluginB ) ],
-    [],
-);
-
-package PluginA;
-
-sub new { bless {}, shift }
-sub foo {}
-1;
-
-package PluginB;
-
-sub new { bless {}, shift }
-sub foo {}
-1;
Index: /ng/perl/Class-Hookable/trunk/t/03_utility/10_delete_hook.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/10_delete_hook.t (revision 2419)
+++  (revision )
@@ -1,53 +1,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-use Class::Hookable;
-
-my $hook    = Class::Hookable->new;
-my $pluginA = PluginA->new;
-my $pluginB = PluginB->new;
-
-$hook->register_hook(
-    $pluginA,
-    'hook.A' => $pluginA->can('foo'),
-    'hook.B' => $pluginA->can('bar'),
-);
-
-$hook->register_hook(
-    $pluginB,
-    'hook.A' => $pluginB->can('foo'),
-    'hook.B' => $pluginB->can('bar'),
-);
-
-$hook->delete_hook('hook.A', $pluginA);
-
-is_deeply(
-    [ $hook->registered_hooks( $pluginA ) ],
-    [ qw( hook.B ) ],
-);
-
-$hook->delete_hook('hook.B');
-
-is_deeply(
-    [ $hook->registered_callbacks('hook.B') ],
-    [],
-);
-
-package PluginA;
-
-sub new { bless {}, shift }
-sub foo {}
-sub bar {}
-
-1;
-
-package PluginB;
-
-sub new { bless {}, shift }
-sub foo {}
-sub bar {}
-
-1;
Index: /ng/perl/Class-Hookable/trunk/t/03_utility/12_delete_method.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/12_delete_method.t (revision 2980)
+++  (revision )
@@ -1,29 +1,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 1;
-use Class::Hookable;
-
-my $hook = Class::Hookable->new;
-my $plugin = Plugin->new;
-
-$hook->register_method(
-    $plugin,
-    'method.A' => $plugin->can('foo'),
-    'method.B' => $plugin->can('bar'),
-);
-
-$hook->delete_method('method.A');
-
-is_deeply(
-    [ $hook->registered_methods( $plugin ) ],
-    [ qw( method.B ) ],
-);
-
-package Plugin;
-
-sub new { bless {}, shift }
-sub foo {}
-sub bar {}
Index: /ng/perl/Class-Hookable/trunk/t/03_utility/14_delete_plugin.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/14_delete_plugin.t (revision 3345)
+++  (revision )
@@ -1,54 +1,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Class::Hookable;
-
-my $hook = Class::Hookable->new;
-my $plugin = Plugin->new;
-
-$hook->register_hook(
-    $plugin,
-    'hook.A' => $plugin->can('foo'),
-    'hook.B' => $plugin->can('foo'),
-);
-
-$hook->register_method(
-    $plugin,
-    'method.A' => $plugin->can('bar'),
-    'method.B' => $plugin->can('bar'),
-);
-
-$hook->delete_plugin( $plugin => qw( hook.A method.B ) );
-
-is_deeply(
-    [ $hook->registered_hooks( $plugin ) ],
-    [qw( hook.B )],
-);
-
-is_deeply(
-    [ $hook->registered_methods( $plugin ) ],
-    [qw( method.A )],
-);
-
-$hook->delete_plugin( $plugin );
-
-is_deeply(
-    [ $hook->registered_hooks( $plugin ) ],
-    [],
-);
-
-is_deeply(
-    [ $hook->registered_methods( $plugin ) ],
-    [],
-);
-
-package Plugin;
-
-sub new { bless {}, shift }
-sub foo {}
-sub bar {}
-sub baz {}
-1;
Index: /ng/perl/Class-Hookable/trunk/t/03_utility/13_delete_function.t
===================================================================
--- /lang/perl/Class-Hookable/trunk/t/03_utility/13_delete_function.t (revision 3205)
+++  (revision )
@@ -1,39 +1,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-use Class::Hookable;
-
-my $hook    = Class::Hookable->new;
-my $plugin  = Plugin->new;
-
-$hook->register_method(
-    $plugin,
-    'method.A' => $plugin->can('foo'),
-    'method.B' => $plugin->can('foo'),
-    'method.C' => $plugin->can('foo'),
-);
-
-$hook->delete_function( $plugin->can('foo') => qw( method.A ) );
-
-is_deeply(
-    [ $hook->registered_methods( $plugin ) ],
-    [qw( method.B method.C )],
-);
-
-$hook->delete_function( $plugin->can('foo') );
-
-is_deeply(
-    [ $hook->registered_methods( $plugin ) ],
-    [],
-);
-
-package Plugin;
-
-sub new { bless {}, shift }
-sub foo {}
-sub bar {}
-
-1;