Commits

Anonymous committed ba01b41

Changed ->extras() to Class::XSAccessor.

Comments (0)

Files changed (1)

File-Find-Object-Rule/lib/File/Find/Object/Rule.pm

 
 use Class::XSAccessor
     accessors => {
+        "extras" => "extras",
         "finder" => "finder",
         "_match_cb" => "_match_cb",
         "rules" => "rules",
 
 =cut
 
-for my $setter (qw( maxdepth mindepth extras )) {
+for my $setter (qw( maxdepth mindepth )) {
     my $sub = sub {
         my $self = _force_object shift;
         $self->{$setter} = shift;
 
 sub _call_find {
     my $self = shift;
-    my $params = shift;
-    my @paths = @_;
+    my $paths = shift;
 
-    my $finder = File::Find::Object->new( $params, @paths);
+    my $finder = File::Find::Object->new( $self->extras(), @$paths);
 
     $self->finder($finder);
 
     my $callback = eval "$code" or die "compile error '$code' $@";
 
     $self->_match_cb($callback);
-    $self->_call_find( $self->{extras}, @paths);
+    $self->_call_find(\@paths);
 
     return 1;
 }
     my $finder = $self->finder();
 
     my $match_cb = $self->_match_cb();
-    my $preproc_cb = $self->{'extras'}->{'preprocess'};
+    my $preproc_cb = $self->extras()->{'preprocess'};
     my $relative = $self->{relative};
 
     while(defined(my $next_obj = $finder->next_obj()))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.