authority =~ s/^cpan://i; return $authority; } } sub _parse_meta { for my $file (qw/META.json META.yml/) { next unless -f $file && -r _; my $meta = Parse::CPAN::Meta->load_file($file)