Changeset 306

Timestamp:

04/17/06 16:57:59 (3 years ago)

Author:

ogawa

Message:

Employs Getopt::Long and Pod::Usage modules.

Files:

• cybozu2ical/trunk/cybozu2ical (modified) (3 diffs)

cybozu2ical/trunk/cybozu2ical

@@ -15 +15 @@
 use DateTime;
 use DateTime::TimeZone;
+use Pod::Usage;
+use Getopt::Long;
 
 our $VERSION = '0.02';
 
-my $cfg = YAML::LoadFile($ARGV[0] || 'config.yaml');
+my %opt = (conf => 'config.yaml');
+GetOptions(\%opt, 'help', 'conf=s') or pod2usage(2);
+pod2usage(1) if $opt{help};
+
+my $cfg = YAML::LoadFile($opt{conf});
 my $tz = DateTime::TimeZone->new(name => $cfg->{time_zone} || 'Asia/Tokyo');
 
@@ -132 +138 @@
 
   % cybozu2ical
-  % cybozu2ical /path/to/config.yaml
+  % cybozu2ical --conf /path/to/config.yaml
 
 =head1 DESCRIPTION
@@ -167 +173 @@
 =over 4
 
-=item path/to/config.yaml
-
-Specified the path to a configuration file. By default, C<config.yaml>
+=item --conf path/to/config.yaml
+
+Specifies the path to a configuration file. By default, C<config.yaml>
 in the current directory.