view release on metacpan or  search on metacpan

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

    $toencode =~ s/\'/'/sg;
    $toencode =~ s/>/>/sg;
    $toencode =~ s/</&lt;/sg;

    return $toencode;
}

sub RegisterCleanup {
    my($self, $code) = @_;
    if(ref($code) =~ /^CODE/) {
	$self->{asp}{dbg} && $self->{asp}->Debug("RegisterCleanup() called", caller());
	push(@{$self->{asp}{cleanup}}, $code);
    } else {
	$self->{asp}->Error("$code need to be a perl sub reference, see README");
    }
}

sub MapInclude {
    my($self, $file) = @_;
    $self->{asp}->SearchDirs($file);
}