"\n",
map {
sprintf(
- "Could not load class (%s) because: %s", $_,
+ "Could not load class (%s) because : %s", $_,
$exceptions{$_}
)
} @classes
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More tests => 28;
use Test::Exception;
require Class::MOP;
Class::MOP::load_class('SyntaxError');
} qr/Missing right curly/;
+throws_ok {
+ Class::MOP::load_class('This::Does::Not::Exist');
+} qr/Could not load class \(This::Does::Not::Exist\) because :/, 'Moose relies on this behaviour';
+
{
package Other;
use constant foo => "bar";