From 69430f4a215cd272c4f2b216b7f1d8beea6d26f9 Mon Sep 17 00:00:00 2001 From: "Eric A. Miller" Date: Mon, 12 Mar 2018 17:31:18 -0400 Subject: [PATCH] Make Test::Perl::Critic pass --- lib/SNMP/Info/MRO.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/SNMP/Info/MRO.pm b/lib/SNMP/Info/MRO.pm index 6ed6d077..d75dfd88 100644 --- a/lib/SNMP/Info/MRO.pm +++ b/lib/SNMP/Info/MRO.pm @@ -7,7 +7,7 @@ use vars qw/$VERSION/; $VERSION = '3.49'; use PPI; -use Class::ISA; +use Class::ISA; ## no critic use Module::Info; use Module::Load (); # use Data::Printer; @@ -228,7 +228,7 @@ sub subroutines { foreach my $parent (reverse @super) { my %sh = Module::Info->new_from_module( $parent )->subroutines; my @subs = grep { $_ !~ m/^_/ } - map { $_ =~ s/^.+:://; $_ } + map { $_ =~ s/^.+:://; $_ } ## no critic keys %sh; foreach my $sub (@subs) {