Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merge branch 'master' of github.com:perldoc-jp/module-pod-jp

  • Loading branch information...
commit 27fdd65313f9a54e69dfbb01dc0eb66806a8ddc8 2 parents 0f386d2 + 70668b0
Tokuhiro Matsuno authored
2  docs/modules/Class-Accessor-Lite-0.05/Lite.pod
Source Rendered
@@ -67,7 +67,7 @@ For more detailed explanation read the following section describing the behaviou
67 67
 
68 68
 =item new => $true_or_false
69 69
 
70  
-この値が真であるとき, デフォルトコンストラクタが作成され, その他の場合は何も起きません(デフォルト動作)
  70
+この値が真であるとき, デフォルトコンストラクタが作成され, その他の場合は何も作成されません(デフォルト動作)
71 71
 
72 72
 =item rw => \@name_of_the_properties
73 73
 
269  docs/modules/Config-Pit-0.04/Pit.pod
Source Rendered
... ...
@@ -0,0 +1,269 @@
  1
+=encoding utf8
  2
+
  3
+=head1 NAME
  4
+
  5
+=begin original
  6
+
  7
+Config::Pit - Manage settings
  8
+
  9
+=end original
  10
+
  11
+Config::Pit - 設定管理
  12
+
  13
+=head1 SYNOPSIS
  14
+
  15
+=begin original
  16
+
  17
+  use Config::Pit;
  18
+
  19
+  my $config = pit_get("example.com", require => {
  20
+    "username" => "your username on example",
  21
+    "password" => "your password on example"
  22
+  });
  23
+  # if the fields are not set, open setting by $EDITOR
  24
+  # with YAML-dumped default values (specified at C<require>).
  25
+
  26
+  # use $config->{username}, $config->{password}
  27
+
  28
+=end original
  29
+
  30
+  use Config::Pit;
  31
+
  32
+  my $config = pit_get("example.com", require => {
  33
+    "username" => "your username on example",
  34
+    "password" => "your password on example"
  35
+  });
  36
+  # フィールドがセットされていなければ, デフォルト値(C<require>で指定)を
  37
+  # YAML形式にしたものが, $EDITORで開かれます.
  38
+
  39
+  # use $config->{username}, $config->{password}
  40
+
  41
+=head1 DESCRIPTION
  42
+
  43
+=begin original
  44
+
  45
+Config::Pit is account setting management library.
  46
+This library automates editing settings used in scripts.
  47
+
  48
+Original library is written in Ruby and published as pit gem with management command.
  49
+
  50
+You can install it by rubygems:
  51
+
  52
+  $ sudo gem install pit
  53
+  $ pit set example.com
  54
+  # open setting of example.com with $EDITOR.
  55
+
  56
+And Config::Pit provides ppit command which is pit command written in Perl.
  57
+
  58
+See:
  59
+
  60
+  $ ppit help
  61
+
  62
+=end original
  63
+
  64
+Config::Pitはアカウント設定を管理するライブラリです.
  65
+このライブラリはスクリプト内で利用される設定の編集を自動化します.
  66
+
  67
+オリジナルのものは Rubyで記述され, 管理コマンド pitとして gem形式で公開されています.
  68
+
  69
+それは rubygemsからインストールができます.
  70
+
  71
+  $ sudo gem install pit
  72
+  $ pit set example.com
  73
+  # open setting of example.com with $EDITOR.
  74
+
  75
+Config::Pitは pitコマンドを Perlで実装した ppitも提供しています.
  76
+
  77
+参照:
  78
+
  79
+  $ ppit help
  80
+
  81
+=head1 FUNCTIONS
  82
+
  83
+=begin original
  84
+
  85
+=head2 Config::Pit::get(setting_name, opts)
  86
+
  87
+Get setting named C<setting_name> from current profile.
  88
+
  89
+  my $config = Config::Pit::get("example.com");
  90
+
  91
+This is same as below:
  92
+
  93
+  my $config = pit_get("example.com");
  94
+
  95
+opts:
  96
+
  97
+=over
  98
+
  99
+=item B<require>
  100
+
  101
+Specify fields you want as key and hint (description or default value) of the field as value.
  102
+
  103
+  my $config = pit_get("example.com", require => {
  104
+    "username" => "your username on example.com",
  105
+    "password" => "your password on example.com"
  106
+  });
  107
+
  108
+C<require> specified, module check the required fields all exist in setting.
  109
+If not exist, open the setting by $EDITOR with merged setting with current setting.
  110
+
  111
+=back
  112
+
  113
+=head2 Config::Pit::set(setting_name, opts)
  114
+
  115
+Set setting named C<setting_name> to current profile.
  116
+
  117
+  Config::Pit::set("example.com"); #=> will open setting with $EDITOR
  118
+
  119
+opts:
  120
+
  121
+=over
  122
+
  123
+=item B<data>
  124
+
  125
+  Config::Pit::set("example.com", data => {
  126
+    username => "foobar",
  127
+    password => "barbaz",
  128
+  });
  129
+
  130
+When C<data> specified, will not open C<$EDITOR> and set the data directly.
  131
+
  132
+=item B<config>
  133
+
  134
+
  135
+  Config::Pit::set("example.com", config => {
  136
+    username => "config description or default value",
  137
+    password => "same as above",
  138
+  });
  139
+
  140
+Open C<$EDITOR> with merged setting with specified config.
  141
+
  142
+=back
  143
+
  144
+=head2 Config::Pit::switch(profile_name);
  145
+
  146
+Switch profile to C<profile_name>.
  147
+
  148
+Profile is setting set:
  149
+
  150
+  $ pit get foobar
  151
+  # foo bar...
  152
+
  153
+  $ pit switch devel
  154
+  Switch profile to devel
  155
+
  156
+  $ pit get foobar
  157
+  # bar baz
  158
+
  159
+  $ pit switch
  160
+  Switch profile to default
  161
+
  162
+  $ pit get foobar
  163
+  # foo bar...
  164
+
  165
+=end original
  166
+
  167
+=head2 Config::Pit::get(setting_name, opts)
  168
+
  169
+C<setting_name>という名前の設定を現在のプロファイルから取得する.
  170
+
  171
+  my $config = Config::Pit::get("example.com");
  172
+
  173
+以下の場合も同様のことを行います.
  174
+
  175
+  my $config = pit_get("example.com");
  176
+
  177
+opts:
  178
+
  179
+=over
  180
+
  181
+=item B<require>
  182
+
  183
+キーとして必要となるフィールドとフィールドの値のヒント(説明かデフォルト値)を指定します.
  184
+
  185
+  my $config = pit_get("example.com", require => {
  186
+    "username" => "your username on example.com",
  187
+    "password" => "your password on example.com"
  188
+  });
  189
+
  190
+C<require>が指定されたとき, モジュールは設定に必要となるフィールドがすべて存在するかを確認します.もしフィールドが存在しなければ, 指定した設定を $EDITORで開き, 現在の設定にマージします.
  191
+
  192
+=back
  193
+
  194
+=head2 Config::Pit::set(setting_name, opts)
  195
+
  196
+C<setting_name>という名前の設定を, 現在のプロファイルにセットします.
  197
+
  198
+  Config::Pit::set("example.com"); #=> $EDITORで設定が開かれます.
  199
+
  200
+opts:
  201
+
  202
+=over
  203
+
  204
+=item B<data>
  205
+
  206
+  Config::Pit::set("example.com", data => {
  207
+    username => "foobar",
  208
+    password => "barbaz",
  209
+  });
  210
+
  211
+C<data>が指定されたとき, C<$EDITOR>を使わずに値を直接セットします.
  212
+
  213
+=item B<config>
  214
+
  215
+
  216
+  Config::Pit::set("example.com", config => {
  217
+    username => "config description or default value",
  218
+    password => "same as above",
  219
+  });
  220
+
  221
+指定した設定を C<$EDITOR>で開き, 現在の設定にマージします.
  222
+
  223
+=back
  224
+
  225
+=head2 Config::Pit::switch(profile_name);
  226
+
  227
+C<profile_name>にプロファイルを切り替えます.
  228
+
  229
+プロファイルは設定の集合です:
  230
+
  231
+  $ pit get foobar
  232
+  # foo bar...
  233
+
  234
+  $ pit switch devel
  235
+  プロファイルを develに切り替える.
  236
+
  237
+  $ pit get foobar
  238
+  # bar baz
  239
+
  240
+  $ pit switch
  241
+  プロファイルをデフォルトのものに切り替える.
  242
+
  243
+  $ pit get foobar
  244
+  # foo bar...
  245
+
  246
+=head1 AUTHOR
  247
+
  248
+cho45 E<lt>cho45@lowreal.netE<gt>
  249
+
  250
+=head1 LICENSE
  251
+
  252
+This library is free software; you can redistribute it and/or modify
  253
+it under the same terms as Perl itself.
  254
+
  255
+=head1 SEE ALSO
  256
+
  257
+=begin original
  258
+
  259
+L<http://lowreal.rubyforge.org/pit/> is pit in Ruby.
  260
+
  261
+F<bin/ppit> is pit command in Perl.
  262
+
  263
+=end original
  264
+
  265
+L<http://lowreal.rubyforge.org/pit/>は pitの Rubyによる実装です.
  266
+
  267
+F<bin/ppit>は pitコマンドの Perlによる実装です.
  268
+
  269
+=cut
60  docs/modules/Term-Encoding-0.02/Encoding.pod
Source Rendered
... ...
@@ -0,0 +1,60 @@
  1
+=encoding utf-8
  2
+
  3
+=head1 NAME
  4
+
  5
+=begin original
  6
+
  7
+Term::Encoding - Detect encoding of the current terminal
  8
+
  9
+=end original
  10
+
  11
+Term::Encoding - 現在のターミナルのエンコーディングの検出
  12
+
  13
+=head1 SYNOPSIS
  14
+
  15
+=begin original
  16
+
  17
+  use Term::Encoding qw(term_encoding);
  18
+  my $encoding = term_encoding;
  19
+
  20
+  # ditto without exporting function
  21
+  use Term::Encoding;
  22
+  my $encoding = Term::Encoding::get_encoding();
  23
+
  24
+=end original
  25
+
  26
+  use Term::Encoding qw(term_encoding);
  27
+  my $encoding = term_encoding;
  28
+
  29
+  # 関数をエクスポートしなくても, 同じことができます.
  30
+  use Term::Encoding;
  31
+  my $encoding = Term::Encoding::get_encoding();
  32
+
  33
+=head1 DESCRIPTION
  34
+
  35
+=begin original
  36
+
  37
+Term::Encoding is a simple module to detect an encoding the current
  38
+terminal expects, in various ways.
  39
+
  40
+=end original
  41
+
  42
+Term::Encodingは様々な方法で現在のターミナルのエンコーディングを検出するための
  43
+シンプルなモジュールです.
  44
+
  45
+=head1 AUTHORS
  46
+
  47
+Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
  48
+
  49
+Audrey Tang E<lt>audreyt@audreyt.orgE<gt>
  50
+
  51
+=head1 LICENSE
  52
+
  53
+This library is free software; you can redistribute it and/or modify
  54
+it under the same terms as Perl itself.
  55
+
  56
+=head1 SEE ALSO
  57
+
  58
+L<Locale::Maketext::Lexicon>
  59
+
  60
+=cut

0 notes on commit 27fdd65

Please sign in to comment.
Something went wrong with that request. Please try again.