Changeset 29161

Timestamp:

Sep 15, 2010, 12:45:30 PM (16 years ago)

Author:

rhenders

Message:

Clearer comments

File:

• trunk/tools/czartool/CzarDb.pm (modified) (1 diff)

trunk/tools/czartool/CzarDb.pm

@@ -11 +11 @@
 our @ISA = qw(czartool::MySQLDb);    # inherits from MySQLDb
 
-# Override constructor
+###########################################################################
+#
+# Constructor (overrides superclass)
+#
+###########################################################################
 sub new {
     my ($class) = @_;
 
-    # Call the constructor of the parent class, Person.
-    my $self = $class->SUPER::new($_[1], $_[2], $_[3], $_[4],  $_[5], $_[6]);
+    # Call the constructor of the parent class
+    my $self = $class->SUPER::new($_[1], $_[2], $_[3], $_[4], $_[5], $_[6]);
 
     bless $self, $class;