view release on metacpan or  search on metacpan

lib/Apache/ASP/Application.pm  view on Meta::CPAN

	       )
	   )
    {
	$asp->Error("can't tie to application state");
	return;
    }

    bless \%self;
}

sub Lock { shift->SUPER::LOCK };
sub UnLock { shift->SUPER::UNLOCK };

sub SessionCount {
    my $asp = tied(%{$_[0]})->{asp};
    if($asp->{session_count}) {
	$asp->{Internal}{SessionCount};
    } else {
	undef;
    }
}

lib/Apache/ASP/CGI/Test.pm  view on Meta::CPAN

package Apache::ASP::CGI::Test;

use Apache::ASP::CGI;
@ISA = qw(Apache::ASP::CGI);

use strict;

sub init {
    my $self = shift->SUPER::init(@_);
    $self->OUT('');
    $self;
}

sub print {
    my $self = shift;
    my $data = join('', map { ref($_) =~ /SCALAR/ ? $$_ : $_; } @_);
    my $out = $self->OUT || '';
    $self->OUT($out.$data);
}