diff options
author | Kenichi Ishigaki <ishigaki@cpan.org> | 2024-04-21 19:35:37 +0900 |
---|---|---|
committer | Kenichi Ishigaki <ishigaki@cpan.org> | 2024-04-21 19:35:37 +0900 |
commit | 856285849dd2cbd9fe4158c1530097ffd16e15c6 (patch) | |
tree | 9de9e7bc0f015c249fd29af025b110890f386b5c /lib/Parse | |
parent | 9697d4feb1b885027229830db4d7e24e1dd99bb8 (diff) |
Drop role if Feature::Compat::Class is used (for now)
Diffstat (limited to 'lib/Parse')
-rw-r--r-- | lib/Parse/PMFile.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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'; } |