Changeset 24616 for trunk/console

Timestamp:

Jun 26, 2009, 4:26:43 PM (17 years ago)

Author:

jhoblitt

Message:

add basic pod/tests

Location:

trunk/console

Files:

• MANIFEST (modified) (1 diff)
• lib/Console.pm (modified) (2 diffs)
• t/00_distribution.t (added)
• t/01_load.t (moved) (moved from trunk/console/t/001_load.t ) (1 diff)

trunk/console/MANIFEST

@@ -10 +10 @@
 scripts/console-config
 scripts/console-ipp-defaults
-t/001_load.t
+t/00_distribution.t
+t/01_load.t

trunk/console/lib/Console.pm

@@ +1 @@
+# Copyright (C) 2009  Joshua Hoblitt
+
 package Console;
 
@@ -87 +89 @@
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Console - rcfile management for the 'console' util
+
+=head1 SYNOPSIS
+
+    use Console;
+
+    my $rcfile = Console::find_rcfile;
+    my $c = Console::read_rcfile($rcfile);
+    Console::add_host(config => $c, console => $con, hostname => $h);
+    Console::delete_host(config => $c, hostname => $h);
+
+=head1 DESCRIPTION
+
+=head1 CREDITS
+
+Just me, myself, and I.
+
+=head1 SUPPORT
+
+Please contact the author directly via e-mail.
+
+=head1 AUTHOR
+
+Joshua Hoblitt <jhoblitt@cpan.org>
+
+=head1 COPYRIGHT
+
+Copyright (C) 2009  Joshua Hoblitt.  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-1307, USA.
+
+The full text of the license can be found in the LICENSE file included with
+this module, or in the L<perlgpl> Pod as supplied with Perl 5.8.1 and later.
+
+=head1 SEE ALSO
+
+L<Config::YAML>

trunk/console/t/01_load.t

@@ -1 @@
-# -*- perl -*-
+#!/usr/bin/perl
 
-# t/001_load.t - check module loading and create testing directory
+# Copryight (C) 2009  Joshua Hoblitt
 
-use Test::More tests => 2;
+use strict;
+use warnings FATAL => qw( all );
 
-BEGIN { use_ok( 'console' ); }
+use lib qw( ./t ./lib );
 
-my $object = console->new ();
-isa_ok ($object, 'console');
+use Test::More tests => 1;
 
-
+BEGIN { use_ok( 'Console' ); }