Skip to content

Commit

Permalink
stop autoboxing
Browse files Browse the repository at this point in the history
  • Loading branch information
kentfredric committed Oct 16, 2014
1 parent b021d7c commit 5d559ac
Show file tree
Hide file tree
Showing 4 changed files with 23 additions and 13 deletions.
4 changes: 4 additions & 0 deletions Changes
Expand Up @@ -5,8 +5,12 @@ Revision history for {{$dist->name}}
- Dependencies changed since 2.000000, see misc/*.deps* for details
- configure: ↓1 (recommends: ↑1)
- develop: +7 ↑2 -3 (suggests: +2 -1)
- runtime: -1
- test: +2 ↑1 -4 (recommends: ↑3 -1)

[Internals]
- Stop Autoboxing

[Metadata]
- move repo to kentnl org
- add copyright holder details
Expand Down
26 changes: 13 additions & 13 deletions lib/Dist/Zilla/Plugin/MetaProvides/Class.pm
Expand Up @@ -12,18 +12,10 @@ our $VERSION = '2.000001';
# AUTHORITY

use Moose qw( has with );
use Moose::Autobox;
use Class::Discover ();

use Dist::Zilla::MetaProvides::ProvideRecord 2.000000;

=head1 SYNOPSIS
[MetaProvides::Class]
meta_noindex = 1 ; default > See :MetaProvider::Provider
inherit_version = 1 ; default > See :MetaProvider::Provider
inherit_missing = 1 ; default > See :MetaProvider::Provider
=head1 ROLES
=head2 C<::MetaProvider::Provider>
Expand Down Expand Up @@ -81,9 +73,9 @@ sub provides {
$self->_classes_for( $_->name, $_->content );
};

my (@files) = $self->zilla->files->flatten;
my (@files) = @{ $self->zilla->files };

my (@records) = @files->grep($perl_module)->map($get_records)->flatten;
my (@records) = map { $get_records->()} grep {$perl_module->()} @files;

return $self->_apply_meta_noindex(@records);
}
Expand All @@ -107,17 +99,17 @@ sub _classes_for {
};
my $to_record = sub {
Dist::Zilla::MetaProvides::ProvideRecord->new(
module => $_->keys->at(0),
module => [ keys %{$_} ]->[0],
file => $filename,
version => $_->values->at(0)->{version},
version => [ values %{$_} ]->[0]->{version},
parent => $self,
);
};

# I'm being bad and using a private function, but meh.
# We know this is bad :(
## no critic ( ProtectPrivateSubs )
return [ Class::Discover->_search_for_classes_in_file( $scanparams, \$content ) ]->map($to_record)->flatten;
return map { $to_record->() } Class::Discover->_search_for_classes_in_file( $scanparams, \$content );
}

=head1 SEE ALSO
Expand All @@ -135,3 +127,11 @@ no Moose;

1;

=head1 SYNOPSIS
[MetaProvides::Class]
meta_noindex = 1 ; default > See :MetaProvider::Provider
inherit_version = 1 ; default > See :MetaProvider::Provider
inherit_missing = 1 ; default > See :MetaProvider::Provider
=cut
3 changes: 3 additions & 0 deletions misc/Changes.deps
Expand Up @@ -11,6 +11,9 @@ This file contains changes in REQUIRED dependencies for standard CPAN phases (co
[Changed / test requires]
- Dist::Zilla::Util::Test::KENTNL 0.01000011 → 1.003002

[Removed / runtime requires]
- Moose::Autobox

[Removed / test requires]
- File::Spec::Functions
- List::Util
Expand Down
3 changes: 3 additions & 0 deletions misc/Changes.deps.all
Expand Up @@ -44,6 +44,9 @@ This file contains ALL changes in dependencies in both REQUIRED / OPTIONAL depen
[Removed / develop suggests]
- Dist::Zilla::PluginBundle::Author::KENTNL::Lite v1.3.0

[Removed / runtime requires]
- Moose::Autobox

[Removed / test recommends]
- CPAN::Meta::Requirements 2.120900

Expand Down

0 comments on commit 5d559ac

Please sign in to comment.