use strict;
my $before_call_flag = 0;
my $after_call_flag = 0;
subtest "register before and after hooks" => sub {
before { $before_call_flag = 1; };
after { $after_call_flag = 1; };
is $before_call_flag, 0;
is $after_call_flag, 0;
subtest "called hook" => sub {
is $before_call_flag, 1;
};
is $after_call_flag, 1;
};
$before_call_flag = 0;
$after_call_flag = 0;
subtest "clear hooks" => sub {
subtest "don't called hook" => sub {
is $before_call_flag, 0;
};
is $after_call_flag, 0;
};
done_testing;