#! /hwnet/activestate/perl-5.6/bin/perl -w

# This script is used to verify syntax and format

use Pod::Usage;
use Getopt::Long;

&GetOptions(
   'help' => \$help,
   'man' => \$man) || pod2usage(1);
 
if($man){ pod2usage({-verbose=>2,-exitval=>0}); }
if($help){ pod2usage(); exit(0); }

print "----------------------------------------------\n";
exit
            
##############END OF SCRIPT#########

__END__
=head1 NAME

  test.pl -- A simple script.

=head1 SYNOPSIS

   test.pl [options]

   Options:

    -h or -help                    Display help.
    -man                           About the script.
    -c <config_name>               Configuration name.
    -p <path>                      Path to Project Definition File.
    -m <n> or -maxerror <n>        Maximum number of errors.
    -q or -quiet                   Do not print errors.

=head1 OPTIONS

=over 8

=item B<-h|help>

    Print a brief help message and exits.

=item B<-man>

    Prints the manual page and exits.

=item B<-c> <name>

    Configuration name.
    i.e: -c tg,mpg
             or
         -c tg -c mpg

=item B<-p> <path>
     
     Path to Project Definition File. 

=item B<-m|maxerror> <number>

     Maximum number of errors.

=item B<-q|quiet>

     Setting this switch will not print any error on stderr.

=back

=head1 DESCRIPTION

The script parses the feature file & print errors.
[download]