Changeset 4695 for lang/perl/misc

Timestamp:

01/16/08 16:02:35 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/misc/pmsetup/tokuhirom-pmsetup: copied from yappo-pmsetup

Files:

• lang/perl/misc/pmsetup/tokuhirom-pmsetup (copied) (copied from lang/perl/misc/pmsetup/yappo-pmsetup) (6 diffs)

lang/perl/misc/pmsetup/tokuhirom-pmsetup

@@ -9 +9 @@
 use Template;
 use YAML;
-
-my $path   = File::Spec->catfile($ENV{HOME}, "/.pmsetuprc");
-my $config = eval { YAML::LoadFile($path) } || {};
-
-my $save;
-while (! $config->{author}) {
-    $config->{author} = prompt("Your name: ", '');
-    $save++;
-}
-
-while (! $config->{email}) {
-    $config->{email} = prompt("Your email: ", '');
-    $save++;
-}
-
-while (! $config->{scratch_repos}) {
-    $config->{scratch_repos} = prompt("Your svk base scratch DEPOTPATH: [//scratch]", '');
-    unless ($config->{scratch_repos} =~ m{^//.}) {
-        delete $config->{scratch_repos};
-        next;
-    }
-    $save++;
-}
-
-while (! $config->{mirror_repos}) {
-    $config->{mirror_repos} = prompt("Your svk base mirror DEPOTPATH: [//mirror]", '');
-    unless ($config->{mirror_repos} =~ m{^//.}) {
-        delete $config->{mirror_repos};
-        next;
-    }
-    $save++;
-}
-
-while (! -e $config->{workdir}) {
-    $config->{workdir} = prompt("Your workdir:", "$ENV{HOME}/tmp");
-    mkdir $config->{workdir}, 0777;
-    $save++;
-}
+use Config::Pit;
+
+my $config = pit_get('pmsetup', require => {
+    author => 'Tokuhiro Matsuno',
+    email => 'tokuhirom AAJKLFJEF GMAIL COM',
+});
 
 my $modname = shift @ARGV or die "Usage: $0 module\n";
@@ -53 +21 @@
 write_plugin_files($modname, $config);
 
-END {
-    YAML::DumpFile($path, $config) if $save;
-}
-
 sub write_plugin_files {
     my($module, $config) = @_;
 
-    my $svk = prompt("import to SVK? [yN] ", 'n');
     my $coderepos = prompt("CodeRepos friendly? [Yn] ", 'y');
 
@@ -72 +35 @@
     mkdir $dist, 0777;
     chdir $dist;
-    if ($svk =~ /[Yy]/ || $coderepos =~ /[Yy]/ ) {
-        mkdir $_, 0777 for (qw/ trunk tags branches /);
-        chdir 'trunk';
-    }
+    mkdir $_, 0777 for (qw/ trunk tags branches /);
+    chdir 'trunk';
 
     my @template = YAML::Load(join '', <DATA>);
@@ -99 +60 @@
     !system 'make manifest' or die $?;
     !system 'make distclean' or die $?;
-
-    return unless $svk =~ /[Yy]/;
-    chdir '..';
-    system("svk import -m '$dist import' $config->{scratch_repos}/$dist");
-    chdir '..';
-    rmtree("$dist");
-    system("svk co $config->{scratch_repos}/$dist/trunk $dist");
 }
 
@@ -145 +99 @@
   all_from 'lib/[% path %]';
 
-  requires $_ for (qw/ /);
+  requires $_ for (qw/
+  /);
 
   build_requires 'Test::More';
@@ -170 +125 @@
   [% config.author %]
   [% module %]
+  tokuhirom
+  AAJKLFJEF
+  GMAIL
+  COM
+  Tatsuhiko
+  Miyagawa
 ---
 file: t/98_perlcritic.t