-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 12;
+use Test::More tests => 11;
-BEGIN {
- use_ok('metaclass');
+BEGIN {use metaclass;
}
{
package Bar;
use metaclass 'BarMeta' => (
- ':attribute_metaclass' => 'BarMeta::Attribute',
- ':method_metaclass' => 'BarMeta::Method',
+ 'attribute_metaclass' => 'BarMeta::Attribute',
+ 'method_metaclass' => 'BarMeta::Method',
);
}