Subversion Repositories DevTools

Rev

Rev 313 | Rev 325 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 313 Rev 315
Line 161... Line 161...
161 
       "Use 'jats help' to provide a list of available topics"
 161 
       "Use 'jats help' to provide a list of available topics"
162 
        )unless ( @item_paths );
 162 
        )unless ( @item_paths );
163 
 
 163 
 
164 
#
 164 
#
165 
#   Process the required items
 165 
#   Process the required items
- 
 
 166 
#       Programs - show help based on opt_help
- 
 
 167 
#       Pods     - show it all
166 
#
 168 
#
167 
Verbose ( "Items", @item_paths  );
 169 
Verbose ( "Items", @item_paths  );
168 
foreach my $item ( @item_paths )
 170 
foreach my $item ( @item_paths )
169 
{
 171 
{
170 
    pod2usage(-input   => $item,
 172 
    pod2usage(-input   => $item,
171 
              -verbose => $opt_help,
 173 
              -verbose => ($item =~ m{\.pod$}) ? 3 : $opt_help,
172 
              -exitval => 'noexit' );
 174 
              -exitval => 'noexit' );
173 
}
 175 
}
174 
exit (0);
 176 
exit (0);
175 
 
 177 
 
176 
#-------------------------------------------------------------------------------
 178 
#-------------------------------------------------------------------------------