package TestHook;
use Spoon::Base -Base;

sub number {
    42;
}

sub other {
    45;
}

package TestHookA;
use base 'Spoon::Base';

sub one {
    47;
}

package Tweak;
use base 'TestHookA';

sub two {
    my $hook = pop;
    $hook->cancel;
    48;
}