ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/ActiveDoc/ActiveConfig.pm

Comparing COMP/SCRAM/src/ActiveDoc/ActiveConfig.pm (file contents):
Revision 1.1 by williamc, Fri Dec 17 08:36:22 1999 UTC vs.
Revision 1.2 by williamc, Thu Jan 20 18:18:45 2000 UTC

#	Line 11 | Line 11
11		# cache()               : Return the cache
12		# store(object,@keys)   :
13		# find (@keys)          :
14	+	# basedoc()             : set/return the base doc
15
16		package ActiveDoc::ActiveConfig;
17		require 5.004;
#	Line 34 | Line 35 | sub init {
35		$self->{cache}=URL::URLcache->new($dir."/cache");
36		}
37
38	+	sub basedoc {
39	+	my $self=shift;
40	+
41	+	@_?$self->{basedoc}=shift
42	+	:$self->{basedoc};
43	+	}
44	+
45		sub cache {
46		my $self=shift;
47		return $self->{cache};
#	Line 47 | Line 55 | sub AUTOLOAD { # Call any method in the
55		return if $AUTOLOAD=~/::DESTROY$/;
56
57		($call=$AUTOLOAD)=~s/^.*:://;
58	+	#       print "Calling $call from ".$self->{objectstore}."\n";
59		return $self->{objectstore}->$call(@_);
60		}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines