From 856285849dd2cbd9fe4158c1530097ffd16e15c6 Mon Sep 17 00:00:00 2001 From: Kenichi Ishigaki Date: Sun, 21 Apr 2024 19:35:37 +0900 Subject: Drop role if Feature::Compat::Class is used (for now) --- lib/Parse/PMFile.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/Parse') diff --git a/lib/Parse/PMFile.pm b/lib/Parse/PMFile.pm index 5cedf8d..c9df5d8 100644 --- a/lib/Parse/PMFile.pm +++ b/lib/Parse/PMFile.pm @@ -397,7 +397,10 @@ sub _packages_per_pmfile { # some modules also enables class and role # XXX: what to do with MooseX::Declare and a few minor experiments) - if ($pline =~ /^[\s\{;]*use\s+(?:Object::Pad|Feature::Compat::Class)[^;]*;/) { + if ($pline =~ /^[\s\{;]*use\s+(?:Feature::Compat::Class)[^;]*;/) { + $package_or_class = 'package|class'; + } + if ($pline =~ /^[\s\{;]*use\s+(?:Object::Pad)[^;]*;/) { $package_or_class = 'package|class|role'; } -- cgit v1.2.3