Changeset 26254

Timestamp:

12/10/08 03:52:24 (4 years ago)

Author:

ktat

Message:

add query function to ask before processing; change function name setup_helper -> setup_script

Location:

lang/perl/Helper-Simple/trunk

Files:

• lib/Helper/Simple.pm (modified) (9 diffs)
• t/03-create_files.t (modified) (1 diff)
• t/03-create_files2.t (modified) (1 diff)
• t/03-create_files3.t (modified) (1 diff)

lang/perl/Helper-Simple/trunk/lib/Helper/Simple.pm

@@ -28 +28 @@
 BEGIN {$PROGRESSBAR = eval "require Term::ProgressBar;";}
 our @EXPORT_FUNCS = qw/file copy my_var template_option template_tags var default_var
-                       download dl
+                       download dl ask
                       /;
 our %DATA =
@@ -227 +227 @@
 }
 
+sub ask {
+  my ($self, $target_option) = _here(@_);
+  if (ref $target_option eq 'HASH') {
+    $target_option->{ask} = 1;
+    return $target_option;
+  }
+}
+
 sub copy {
   my ($self, @data) = _here(@_);
@@ -246 +254 @@
     }
     $self->_files($target, $option);
+    return $self->{files}->{$target};
   }
 }
@@ -254 +263 @@
     my ($target, $option) = ref $d eq 'ARRAY' ? (@$d) : $d;
     $self->_dls($target, $option || {});
+    return $self->{dls}->{$target};
   }
 }
@@ -309 +319 @@
 
 sub setup_script {
-  my ($class, $helper_place, $generator) = @_;
-  my $helper;
-
-  Carp::croak('specify helper place.') unless $helper_place;
+  my ($class, $script_place, $generator) = @_;
+  my $script;
+
+  Carp::croak('specify script place.') unless $script_place;
   local $Data::Dumper::Purity = 1;
   local $Data::Dumper::Terse  = 1;
-  $helper = $generator->($class, Dumper(\%DATA))  if defined $generator;
-  $helper ||= sprintf <<'__PL__', $Config{startperl}, ($class) x 5, Dumper(\%DATA);
+  $script = $generator->($class, Dumper(\%DATA))  if defined $generator;
+  $script ||= sprintf <<'__PL__', $Config{startperl}, ($class) x 5, Dumper(\%DATA);
 %s
 
@@ -338 +348 @@
 
   local $/ = undef;
-  $helper .= "\n";
-  $helper .= slurp(_where_pm(__PACKAGE__));
-  $class->_write_file($helper_place, $helper);
-  chmod 0755, $helper_place;
+  $script .= "\n";
+  $script .= slurp(_where_pm(__PACKAGE__));
+  $script =~s{\n\=head1 NAME.+$}{}s;
+  $script .= _script_document($script_place);
+  $class->_write_file($script_place, $script);
+  chmod 0755, $script_place;
+}
+
+sub _script_document {
+  my ($place) = @_;
+  $place =~s{^[\./]+}{};
+  return sprintf <<__DOC__, $place;
+=head1 Name
+
+=head1 DESCRIPTION
+
+=head1 USAGE
+
+ %s ./dir
+
+=head1 OPTIONS
+
+=head2 -h
+
+show this help
+
+__DOC__
+}
+
+sub _ask_skip {
+  my ($self, $target, $option) = @_;
+  return if not ref $option or not $option->{ask};
+
+  print "process $target ?(Y/N) ";
+  while (my $s = <STDIN>) {
+    chomp $s;
+    return 0 if $s =~ /^y$/i;
+    return 1 if $s =~ /^n$/i;
+    print " Y/N ?";
+  }
+
 }
 
@@ -349 +396 @@
 
   while (my ($file, $c) = each %{$pkg->_files}) {
+    next if $pkg->_ask_skip($file, $c);
+
     my ($o, $render_file) = ('', 1);
     unless (ref $c) {
@@ -544 +593 @@
 
   while (my ($target, $option) = each %{$pkg->_dls}) {
+    next if $pkg->_ask_skip($target, $option);
+
     my $dir = $pkg->dir;
 
@@ -997 +1048 @@
 request method. default is get.
 
+=head2 ask
+
+ask user to process.
+You can put this function before some functions, copy and dl/download.
+For example.
+
+ ask copy $file;
+
+Only when user answer 'Y/y', this process will be done.
+
 =head2 var
 

lang/perl/Helper-Simple/trunk/t/03-create_files.t

@@ -9 +9 @@
 
 MyHelper->setup_files('./t/tmp');
-MyHelper->setup_helper('./t/tmp/myhelper.pl');
+MyHelper->setup_script('./t/tmp/myhelper.pl');

lang/perl/Helper-Simple/trunk/t/03-create_files2.t

@@ -9 +9 @@
 
 MyHelper2::Test->setup_files('./t/tmp2');
-MyHelper2::Test->setup_helper('./t/tmp2/myhelper2.pl');
+MyHelper2::Test->setup_script('./t/tmp2/myhelper2.pl');

lang/perl/Helper-Simple/trunk/t/03-create_files3.t

@@ -11 +11 @@
 
 MyHelper2::Test->setup_files('./t/tmp3');
-MyHelper2::Test->setup_helper('./t/tmp3/myhelper2.pl');
+MyHelper2::Test->setup_script('./t/tmp3/myhelper2.pl');