.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Test 3"
.TH Test 3 "2001-10-30" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Slash::Test \- Command\-line Slash testing
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 3
\&        % perl -MSlash::Test -wle Display
\&        Current user is [% user.nickname %] ([% user.uid %])
\&        ^DCurrent user is Anonymous Coward (1)
.Ve
.PP
.Vb 1
\&        % perl -MSlash::Test -e 'print Dumper $user'
.Ve
.PP
.Vb 1
\&        % perl -MSlash::Test=virtualuser -e 'print Dumper $user'
.Ve
.PP
.Vb 3
\&        #!/usr/bin/perl -w
\&        use Slash::Test qw(virtualuser);
\&        print Dumper $user;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Will export everything from Slash, Slash::Utility, Slash::Display,
Slash::XML, and Data::Dumper into the current namespace.  Will export \f(CW$user\fR,
\&\f(CW$form\fR, \f(CW$constants\fR, and \f(CW$slashdb\fR as global variables into the current namespace.
.PP
So use it one of three ways (use the default Virtual User,
or pass it in via the import list, or pass in with \fIslashTest()\fR), and then
just use the Slash \s-1API\s0 in your one\-liners.
.PP
It is recommended that you change the hardcoded default to whatever
Virtual User you use most.
.SH "EXPORTED FUNCTIONS"
.IX Header "EXPORTED FUNCTIONS"
.Sh "slashTest([\s-1VIRTUALUSER\s0])"
.IX Subsection "slashTest([VIRTUALUSER])"
Set up the environment, with a new Virtual User.
.PP
Called automatically when module is first used.  Should only be called
if changing the Virtual User from the default (by default, \*(L"slash\*(R").
Called without an argument, uses the default.
.IP "Parameters" 4
.IX Item "Parameters"
.RS 4
.PD 0
.IP "\s-1VIRTUALUSER\s0" 4
.IX Item "VIRTUALUSER"
.PD
Your site's virtual user.
.RE
.RS 4
.RE
.IP "Return value" 4
.IX Item "Return value"
None.
.IP "Side effects" 4
.IX Item "Side effects"
Set up the environment with \fIcreateEnvironment()\fR, export \f(CW$user\fR,
\&\f(CW$form\fR, \f(CW$constants\fR, and \f(CW$slashdb\fR into current namespace.
.Sh "Display(\s-1TEMPLATE\s0 [, \s-1HASHREF\s0, \s-1RETURN\s0])"
.IX Subsection "Display(TEMPLATE [, HASHREF, RETURN])"
A wrapper for \fIslashDisplay()\fR.  Pass in a template string (not a template
name) and optional hashref of variables.  Nocomm is true.  Default is to
print (else make third param true).
.PP
If first arg is false, then takes template from \s-1STDIN\s0.  You can type in
your template on the command line, then, and hit ctrl-D or whatever
to end.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fISlash\fR\|(3).
.SH "VERSION"
.IX Header "VERSION"
$Id: Test.pm,v 1.1.2.8 2001/10/25 17:34:42 pudge Exp $