-#!/usr/bin/perl
-
use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More tests => 15;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
+BEGIN {use Class::MOP;
}
{
use base 'Class::MOP::Package';
__PACKAGE__->meta->add_attribute(
- '%:namespace' => (
+ 'namespace' => (
+ reader => 'namespace',
default => sub { {} }
)
);
}
# No actually package Foo exists :)
-
my $meta = My::Meta::Package->initialize('Foo');
isa_ok($meta, 'My::Meta::Package');