use strict;
use warnings;
package SubClass;
use Moose;
BEGIN { extends 'BaseClass'; }
sub bar : Bar {}
{
my $no_calls_to_affe = 0;
before affe => sub {
$no_calls_to_affe++;
};
sub no_calls_to_affe {
$no_calls_to_affe;
}
}
no Moose;
1;