getting closer to bucket output

This commit is contained in:
JT Smith 2006-01-30 00:14:22 +00:00
parent deb6b353d6
commit 268947c1d5
8 changed files with 192 additions and 42 deletions

View file

@ -27,6 +27,7 @@ use WebGUI::Session::Http;
use WebGUI::Session::Icon;
use WebGUI::Session::Id;
use WebGUI::Session::Os;
use WebGUI::Session::Output;
use WebGUI::Session::Privilege;
use WebGUI::Session::Scratch;
use WebGUI::Session::Setting;
@ -63,6 +64,7 @@ B<NOTE:> It is important to distinguish the difference between a WebGUI session
$session->form
$session->http
$session->os
$session->output
$session->request
$session->scratch
$session->server
@ -364,6 +366,23 @@ sub open {
return $self;
}
#-------------------------------------------------------------------
=head2 output ( )
Returns a WebGUI::Session::Output object.
=cut
sub output {
my $self = shift;
unless (exists $self->{_output}) {
$self->{_output} = WebGUI::Session::Output->new($self);
}
return $self->{_output};
}
#-------------------------------------------------------------------
=head2 os ( )