Commits

Anonymous committed f3d32b0

Converted ->finder() to Class::XSAccessor .

Comments (0)

Files changed (1)

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

 
 use Class::XSAccessor
     accessors => {
+        "finder" => "finder",
         "_match_cb" => "_match_cb",
         "_subs" => "_subs",
     }
 
     my $finder = File::Find::Object->new( $params, @paths);
 
-    $self->{finder} = $finder;
+    $self->finder($finder);
 
     return;
 }
 
-sub finder {
-    my $self = shift;
-
-    return $self->{finder};
-}
-
 sub _compile {
     my $self = shift;
     my $subs = shift;