+++ /dev/null
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 5;
-
-do {
- package Class;
- use Mouse;
-
- no Mouse;
-
- package Child;
- use Mouse;
- extends 'Class';
-
- no Mouse;
-};
-
-ok(!Child->can('extends'), "extends keyword is unimported");
-ok(!Class->can('extends'), "extends keyword is unimported");
-
-do {
- package Foo;
- use Mouse 'has';
-
- sub extends { "good" }
-
- no Mouse;
-};
-
-ok(!Foo->can('has'), "has keyword is unimported");
-
-ok(Foo->can('extends'), "extends method is NOT unimported");
-is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");
-