-#!/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 { {} }
)
);
my $glob = gensym();
*{$glob} = $initial_value if defined $initial_value;
- $self->namespace->{$name} = $glob;
+ $self->namespace->{$name} = *{$glob};
}
}
# No actually package Foo exists :)
-
my $meta = My::Meta::Package->initialize('Foo');
isa_ok($meta, 'My::Meta::Package');