-#!/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;
}
{
my $glob = gensym();
*{$glob} = $initial_value if defined $initial_value;
- $self->namespace->{$name} = $glob;
+ $self->namespace->{$name} = *{$glob};
}
}