use Class::MOP;
SKIP: {
- if (not eval { require Moose; 1 }) {
+ unless (eval { require Moose; 1 }) {
skip 'test requires moose', 1;
exit 0;
}
- eval <<FOOBAR;
+ eval <<'EOF';
package FooBar;
use Moose;
sub DESTROY { shift->name }
__PACKAGE__->meta->make_immutable;
-FOOBAR
+EOF
my $f = FooBar->new( name => 'SUSAN' );