diff options
| author | Robin Barker <rmbarker@cpan.org> | 2012-07-11 00:32:36 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-07-13 09:56:49 -0700 |
| commit | 188f5f276c09b83b41becaf3048725df266f3f4a (patch) | |
| tree | be250bf9daac242ab2e22dd30a2e8e79ca700590 /lib | |
| parent | 40099ff67d477216d1972e2b6eb615552771804f (diff) | |
| download | perl-188f5f276c09b83b41becaf3048725df266f3f4a.tar.gz | |
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.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Class/Struct.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Class/Struct.t b/lib/Class/Struct.t index 111c090a11..fb1eb0b545 100644 --- 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) = @_; |