trAvis - MANAGER

Edit File: 006-unimport.t

#!/usr/bin/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");