Permalink
Browse files

Code repositioning only.

  • Loading branch information...
1 parent 5448517 commit 274efe77ee51eea375a5da34c9c33ae47456ad9b @jkeenan committed Feb 22, 2010
Showing with 16 additions and 16 deletions.
  1. +16 −16 lib/CPAN/Mini/Visit/Simple.pm
@@ -41,22 +41,6 @@ sub new {
return $self;
}
-sub identify_distros_from_derived_list {
- my ($self, $args) = @_;
- croak "Bad argument 'start_dir' provided to identify_distros_from_derived_list()"
- if exists $args->{start_dir};
- croak "Bad argument 'pattern' provided to identify_distros_from_derived_list()"
- if exists $args->{pattern};
- croak "identify_distros_from_derived_list() needs 'list' element"
- unless exists $args->{list};
- croak "Value of 'list' must be array reference"
- unless reftype($args->{list}) eq 'ARRAY';
- croak "Value of 'list' must be non-empty"
- unless scalar(@{$args->{list}});
- $self->{list} = dedupe_superseded( $args->{list} );
- return 1;
-}
-
sub identify_distros {
my ($self, $args) = @_;
@@ -84,6 +68,22 @@ sub identify_distros {
return 1;
}
+sub identify_distros_from_derived_list {
+ my ($self, $args) = @_;
+ croak "Bad argument 'start_dir' provided to identify_distros_from_derived_list()"
+ if exists $args->{start_dir};
+ croak "Bad argument 'pattern' provided to identify_distros_from_derived_list()"
+ if exists $args->{pattern};
+ croak "identify_distros_from_derived_list() needs 'list' element"
+ unless exists $args->{list};
+ croak "Value of 'list' must be array reference"
+ unless reftype($args->{list}) eq 'ARRAY';
+ croak "Value of 'list' must be non-empty"
+ unless scalar(@{$args->{list}});
+ $self->{list} = dedupe_superseded( $args->{list} );
+ return 1;
+}
+
sub _search_from_start_dir {
my ($self, $args) = @_;
my @found = ();

0 comments on commit 274efe7

Please sign in to comment.