missing session variables from ->new found via code analysis

This commit is contained in:
Colin Kuskie 2006-01-16 21:55:39 +00:00
parent 4085c7baf4
commit 35c4ad353d
12 changed files with 36 additions and 28 deletions

View file

@ -44,6 +44,7 @@ sub DESTROY {
sub new {
my $pack = shift;
my $self = $pack->SUPER::new();
$self->{_session} = shift;
$self->{Url} = shift;
$self->{Content} = shift;
$self->{assetId} = shift;
@ -92,6 +93,10 @@ sub end {
$_[0]->output("</$_[1]>")
}
sub session {
return $_[0]->{_session};
}
sub start {
my $self = shift;
my ($tag, $attr, $attrseq, $origtext) = @_;