[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/Utilities/Verbose.pm

Comparing COMP/SCRAM/src/Utilities/Verbose.pm (file contents):
Revision 1.1 by williamc, Fri Apr 7 08:22:07 2000 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:35:17 2000 UTC

-+
+#
-+
+# Verbose.pm
-+
+#
-+
+# Originally Written by Christopher Williams
-+
+#
-+
+# Description
-+
+# -----------
-+
+# Simple multi parsing functionality
-+
+#
-+
+# Interface
-+
+# ---------
-+
+# new()         : A new ActiveDoc object
-+
+# verbose(string)       : Print string in verbosity mode
-+
+# verbosity(0|1)        : verbosity off|on
-+
-+
+package Utilities::Verbose;
-+
+require 5.004;
-+
-+
+sub new {
-+
+        my $class=shift;
-+
+        $self={};
-+
+        bless $self, $class;
-+
+        $self->verbose("New ".ref($self)." Created");
-+
+        return $self;
-+
+}
-+
-+
+sub verbosity {
-+
+        my $self=shift;
-+
+        if ( @_ ) {
-+
+           $self->{verbose}=shift;
-+
+        }
-+
+        $self->{verbose};
-+
-+
+}
-+
-+
+sub verbose {
-+
+        my $self=shift;
-+
+        my $string=shift;
-+
-+
+        if ( $self->{verbose} ) {
-+
+          print ">".ref($self)."($self) : \n->".$string."\n";
-+
+        }
-+
+}
-+
-+
+sub error {
-+
+        my $self=shift;
-+
+        my $string=shift;
-+
-+
+        print $string."\n";
-+
+        exit 1;
-+
+}

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