ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Utilities/Verbose.pm

Comparing COMP/SCRAM/src/Utilities/Verbose.pm (file contents):
Revision 1.2 by williamc, Mon Aug 28 08:35:17 2000 UTC vs.
Revision 1.4 by sashby, Mon Dec 3 19:02:05 2001 UTC

#	Line 9 | Line 9
9		#
10		# Interface
11		# ---------
12	<	# new()         : A new ActiveDoc object
12	>	# new()                 : A new ActiveDoc object
13		# verbose(string)       : Print string in verbosity mode
14		# verbosity(0|1)        : verbosity off|on
15
#	Line 29 | Line 29 | sub verbosity {
29		if ( @_ ) {
30		$self->{verbose}=shift;
31		}
32	+	else {
33	+	my $id="VERBOSE_".ref($self);
34	+	if ( defined $ENV{$id} ) {
35	+	return $ENV{$id};
36	+	}
37	+	}
38		$self->{verbose};
33	–
39		}
40
41		sub verbose {
42		my $self=shift;
43		my $string=shift;
44
45	<	if ( $self->{verbose} ) {
45	>	if ( $self->verbosity() ) {
46		print ">".ref($self)."($self) : \n->".$string."\n";
47		}
48		}

Diff Legend

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