| Meta documentation | Contained in the Meta distribution. |
Meta::Tool::Man - interface to the man tool.
Copyright (C) 2001, 2002 Mark Veltzer; All rights reserved.
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
MANIFEST: Man.pm PROJECT: meta VERSION: 0.00
package foo; use Meta::Tool::Man qw(); my($object)=Meta::Tool::Man->new(); my($result)=$object->method();
This module will allow you to interact with the man subsystem. You can query the man command for its version, its search path, ask it to display a manual page etc...
path() TEST($)
This is a testing suite for the Meta::Tool::Man module. This test is should be run by a higher level management system at integration or release time or just as a regular routine to check that all is well.
None.
None.
Name: Mark Veltzer Email: mailto:veltzer@cpan.org WWW: http://www.veltzer.org CPAN id: VELTZER
0.00 MV md5 issues
Meta::Utils::File::Patho(3), Meta::Utils::Output(3), Meta::Utils::System(3), strict(3)
Nothing.
| Meta documentation | Contained in the Meta distribution. |
#!/bin/echo This is a perl module and should not be run package Meta::Tool::Man; use strict qw(vars refs subs); use Meta::Utils::File::Patho qw(); use Meta::Utils::Output qw(); use Meta::Utils::System qw(); our($VERSION,@ISA); $VERSION="0.00"; @ISA=qw(); #sub BEGIN(); #sub path(); #sub TEST($); #__DATA__ my($tool_path); sub BEGIN() { my($patho)=Meta::Utils::File::Patho->new_path(); $tool_path=$patho->resolve("man"); } sub path() { my($path)=Meta::Utils::System::system_out_val($tool_path,["--path"]); chop($path); return($path); } sub TEST($) { my($context)=@_; my($path)=path(); Meta::Utils::Output::print("path is [".$path."]\n"); return(1); } 1; __END__