printf "Perl %vd on $Config{archname}\n", $^V;
my @mods = qw(Moose Mouse Class::Method::Modifiers);
-if(eval{ require Class::Method::Modifiers::Fast }){
- push @mods, 'Class::Method::Modifiers::Fast';
-}
-
foreach my $class(@mods){
print "$class ", $class->VERSION, "\n";
}
{
package MouseClass;
use parent -norequire => qw(Base);
- use Moose;
+ use Mouse;
before f => sub{ $i++ };
around g => \&main::around;