#!/usr/bin/perl

my $cmd = shift;
$cmd =~ s#^./##;
$cmd =~ s/.pm$//;

my $mod = "SVK::Command::$cmd";
eval "require $mod";
use Data::Dumper;
my %options = "SVK::Command::$cmd"->options();

$out =  "=head1 OPTIONS\n\n";
foreach my $key (keys %options) {

$key =~ s/^/-/;
$key =~ s/\|([\w-]+)/ [--$1]/g;

$key =~ s/=[si]/ arg/g;

$out .= "  $key:\tNeeds description\n";

}

$out .= "\n";


`perl -pi.bak -e"s/=head1 AUTHOR/$out=head1 AUTHOR/gism" "$cmd.pm"`;

print $out;