Changeset 19752 for lang/perl/App-Hachero

Timestamp:

09/23/08 09:47:21 (5 years ago)

Author:

lopnor

Message:

you can specify File::Find::Rule rules in config.yaml

Location:

lang/perl/App-Hachero/trunk

Files:

• lib/App/Hachero/Plugin/Input/File.pm (modified) (2 diffs)
• t/plugin/input/04_file_rule.t (added)

lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Input/File.pm

@@ -4 +4 @@
 use base qw(App::Hachero::Plugin::Base);
 use File::Find::Rule;
+use File::Find::Rule::Age;
 use File::stat;
 
@@ -26 +27 @@
 sub _get_rule {
     my ($self, $context) = @_;
-    my $work_path = $context->work_path;
-    $self->{rule} = File::Find::Rule->file()->start( $work_path );
+    my $path = $self->config->{config}->{path} || $context->work_path;
+    my $rule = File::Find::Rule->file();
+    my $config = $self->config->{config}->{rule};
+    for my $key (keys %{$config}) {
+        my $value = $config->{$key};
+        $rule->$key(
+            ref $value eq 'HASH' ? %{$value} :
+            ref $value eq 'ARRAY' ? @{$value} :
+            $value
+        );
+    }
+    $self->{rule} = $rule->start( $path );
     return $self->{rule};
 }