Text::UberText::Modules::Info - UberText Info Commands

ubertext documentation Contained in the ubertext distribution.

Index

Code Index:

NAME

Top

Text::UberText::Modules::Info - UberText Info Commands

SYNOPSIS

Top

[uber.info version]

[uber.info environment]

DESCRIPTION

Top

The Info module is used to get information regarding the UberText environment.

DOCOUMENT COMMANDS

Top

The following commands are available in the uber.info namespace.

[uber.info version]

Returns the version number of Text::UberText.

[uber.info environment]

Returns the language environment, language version, and the operating system UberText is running on.

AUTHOR

Top

Chris Josephes <cpj1@visi.com>

SEE ALSO

Top

Text::UberText

COPYRIGHT

Top

Copyright 2002, Chris Josephes. All rights reserved. This module is free software. It may be used, redistributed, and/or modified under the same terms as Perl itself. ~

ubertext documentation Contained in the ubertext distribution. 
#
# Package Definition
#

package Text::UberText::Modules::Info;

#
# Compiler Directives
#

use strict;
use warnings;

#
# Global Variables
#

use vars qw/$Dispatch $VERSION /;

$Dispatch={
	"version" => \&version,
	"environment" => \&environment,
	"copyright" => \&copyright,
};

$VERSION=0.95;

#
# Methods
#

sub new
{
my ($class)=shift;
my ($object);
$object={};
bless ($object,$class);
$object->_init(@_);
return $object;
}

sub uberText
{
my ($self)=shift;
return ($self,"uber.info",$Dispatch);
}

#
# UberText Methods
#

sub version
{
my ($output);
$output="UberText Version $Text::UberText::VERSION";
return $output;
}

sub environment
{
my ($output);
$output="Perl version $] ($^O)\n";
return $output;
}

sub copyright
{
my ($output);
$output=<<EO
Text::UberText -- Copyright 2002, Chris Josephes
EO
;
return $output;
}

#
# Hidden Methods
#

sub _init
{
my ($self)=shift;
return;
}


#
# Exit Block
#
1;

#
# POD Documentation
#