X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FAcme%2FCPANAuthors%2FYou%2Fre_using.pm;h=149c60a4b25d083edaa496edc8981c3d6049f3e9;hb=e069f287877589b33567d376e4c60eccd695ce51;hp=efc35bf3e4eca354c30c8f5682924a2fab1b64a8;hpb=7225e18d270e791b2136c58830da5d7207e7e9ea;p=perl%2Fmodules%2FAcme-CPANAuthors-You-re_using.git diff --git a/lib/Acme/CPANAuthors/You/re_using.pm b/lib/Acme/CPANAuthors/You/re_using.pm index efc35bf..149c60a 100644 --- a/lib/Acme/CPANAuthors/You/re_using.pm +++ b/lib/Acme/CPANAuthors/You/re_using.pm @@ -14,13 +14,13 @@ Acme::CPANAuthors::You::re_using - We are the CPAN authors that have written the =head1 VERSION -Version 0.04 +Version 0.07 =cut our $VERSION; BEGIN { - $VERSION = '0.04'; + $VERSION = '0.07'; } =head1 SYNOPSIS @@ -65,7 +65,10 @@ sub register { File::Find::find({ wanted => sub { return unless /\.pm$/; - my $mod = Module::Metadata->new_from_file($_); + my $mod = do { + local $@; + eval { Module::Metadata->new_from_file($_) } + }; return unless $mod; @modules{grep $_, $mod->packages_inside} = (); }, @@ -87,7 +90,7 @@ sub register { my $name; $name = $auth->name if defined $auth; - + $authors{$cpanid} = defined $name ? $name : $cpanid; } @@ -98,7 +101,11 @@ BEGIN { register() } =head1 DEPENDENCIES -L, L, L. +L (core since perl 5) + +L 0.16. + +L 1.000_017. =head1 SEE ALSO @@ -122,7 +129,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2009,2010,2011,2013 Vincent Pit, all rights reserved. +Copyright 2009,2010,2011,2013,2015 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.