no warnings once; fixes #2

tobyink · Jul 3, 2022 · 5f5ea5b · 5f5ea5b
1 parent 011504a
commit 5f5ea5b
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/lib/Role/Hooks.pm b/lib/Role/Hooks.pm
@@ -71,6 +71,7 @@ sub is_role {
 	}
 
 	no strict 'refs';
+	no warnings 'once';
 	my $UM = ${"$target\::USES_MITE"};
 	if ( defined $UM and $UM eq 'Mite::Role' ) {
 		return 'Mite::Role';

diff --git a/t/99nonrole.t b/t/99nonrole.t
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use Test::More;
+use Role::Tiny;
+
+BEGIN {
+	package Foo;
+	sub new { bless [], shift }
+};
+
+ok ! Role::Tiny->is_role( 'Foo' );
+done_testing;