root/lang/perl/Class-Hookable/trunk/t/02_register/01_register_method.t @ 4056

#!perl -T

use strict;
use warnings;

use Test::More tests => 6;
use Class::Hookable;
use lib 't';
use DummyClass;

my $hook    = Class::Hookable->new;
my $plugin  = Plugin->new;

$hook->register_method(
    $plugin,
    'foo.bar' => $plugin->can('foo'),
);

is_deeply(
    $hook->hookable_all_methods->{'foo.bar'},
    {
        plugin      => $plugin,
        function    => $plugin->can('foo'),
    },
);

$hook->hookable_set_filter(
    'register_method' => sub {
        my ( $self, $filter, $method, $action ) = @_;
        isa_ok( $self, 'Class::Hookable' );
        is( $filter, 'register_method' );
        is( $method, 'bar.baz' );
        is_deeply(
            $action,
            {
                plugin      => $plugin,
                function    => $plugin->can('bar'),
            },
        );
        return 0;
    },
);

$hook->register_method(
    $plugin,
    'bar.baz' => $plugin->can('bar'),
);

is(
    $hook->hookable_all_methods->{'bar.baz'},
    undef,
);