missing session variables from ->new found via code analysis
This commit is contained in:
parent
4085c7baf4
commit
35c4ad353d
12 changed files with 36 additions and 28 deletions
|
|
@ -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) = @_;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue