Changeset 6097 for trunk/PS-IPP-Metadata-Config/scripts/mdc-dump

Timestamp:

Jan 20, 2006, 4:38:17 PM (20 years ago)

Author:

jhoblitt

Message:

add --verbose option

File:

• trunk/PS-IPP-Metadata-Config/scripts/mdc-dump (modified) (5 diffs)

trunk/PS-IPP-Metadata-Config/scripts/mdc-dump

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdc-dump,v 1.1 2005-09-30 01:32:02 jhoblitt Exp $
+# $Id: mdc-dump,v 1.2 2006-01-21 02:38:17 jhoblitt Exp $
 
 use strict;
@@ -17 +17 @@
 use Pod::Usage qw( pod2usage );
 
-my ( $file, $overwrite );
+my ( $file, $overwrite, $verbose );
 GetOptions(
     'file=s'    => \$file,
     'overwrite' => \$overwrite,
+    'verbose'   => \$verbose,
 ) || pod2usage( 2 );
 
@@ -28 +29 @@
 $file = '-' unless $file;
 
+if (defined $verbose) {
+    $::RD_TRACE = 1;
+    $::RD_HINT = 1;
+}
 my $md_parser = PS::IPP::Metadata::Config->new;
 
@@ -59 +64 @@
 =head1 SYNOPSIS
 
-    mddump.pl [--overwrite] --file <filename>
+    mddump.pl [--overwrite] [--verbose] --file <filename>
 
     or
 
-    cat <filename> | mddump.pl [--overwrite]
+    cat <filename> | mddump.pl [--overwrite] [--verbose]
 
     or
@@ -87 +92 @@
 A flag that turns L<PS::IPP::Metadata::Config>'s overwrite behavior on.
 Overwrite is always off unless this flag is specified.
+
+=item * --verbose | -v
+
+A flag that turns L<Parse::RecDescent>'s C<RD_TRACE> and C<RD_HINT> tracing
+flags.  verbose is always off unless this flag is specified.
 
 =item * --help | -h | -?