Add option to print the path to the target file

hinrik · Jun 26, 2009 · 8b83721 · 8b83721
1 parent 8ae3d00
commit 8b83721
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,6 @@
+0.06
+    - Add -l/--only option to print the path to the target file
+
 0.05 Fri Jun 26 05:48:02 GMT 2009
     - Fix location of shared files (synopses)
 

diff --git a/lib/App/Grok.pm b/lib/App/Grok.pm
@@ -20,12 +20,20 @@ sub new {
 
 sub run {
     get_options();
+    my ($target, $renderer);
+
     if (defined $opt{file}) {
-        render_file($opt{file}, 'App::Grok::Pod6');
+        ($target, $renderer) = ($opt{file}, 'App::Grok::Pod6');
+    }
+    else {
+        ($target, $renderer) = find_target($ARGV[0]);
+    }
+
+    if ($opt{only}) {
+        print "$target\n";
     }
     else {
-        my $arg = shift @ARGV;
-        find_target($arg);
+        render_file($target, $renderer);
     }
 }
 
@@ -34,6 +42,7 @@ sub get_options {
         'F|file=s'   => \$opt{file},
         'f|format=s' => \($opt{format} = 'ansi'),
         'h|help'     => sub { pod2usage(1) },
+        'l|only'     => \$opt{only},
         'T|no-pager' => \$opt{no_pager},
         'v|version'  => sub { print "grok $VERSION\n"; exit },
     ) or pod2usage();
@@ -53,7 +62,7 @@ sub find_target {
     ($target, $renderer) = find_file($arg) if !defined $target;
 
     die "Target '$arg' not recognized\n" if !$target;
-    render_file($target, $renderer);
+    return ($target, $renderer);
 }
 
 sub find_synopsis {

diff --git a/script/grok b/script/grok
@@ -17,6 +17,7 @@ B<grok> <options> <target>
    -F FILE, --file=FILE         A file to read Pod 6 from
    -f FORMAT, --format=FORMAT   The output format, ansi(default) or text
    -h, --help                   Print this help message
+   -l, --only                   Only print the path to the target file
    -T, --no-pager               Send output to STDOUT without any pager
    -v, --version                Print version information