silence override warning

The test is trying to test the behaviour being warned about,
so the code is right but the warning can be suppressed.

diff --git a/lib/Class/Struct.t b/lib/Class/Struct.t
index 111c090..fb1eb0b 100644 (file)
--- a/lib/Class/Struct.t
+++ b/lib/Class/Struct.t
@@ -38,7 +38,10 @@ use Class::Struct s => '$', a => '@', h => '%', c => 'aClass';
 package OverrideAccessor;
 use Class::Struct;
 
-struct( 'OverrideAccessor', { count => '$' } );
+{ 
+ no warnings qw(Class::Struct);
+ struct( 'OverrideAccessor', { count => '$' } );
+}
 
 sub count {
   my ($self,$count) = @_;