Changeset 10304 for trunk/gsdl/perllib/basebuildproc.pm

Timestamp:

2005-07-26T10:15:08+12:00 (19 years ago)

Author:

davidb

Message:

Introduction of is_incremental() function in base class (not incremental
by default). Over-ridden by inherited classes if incremental building
possible.

File:

• trunk/gsdl/perllib/basebuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/basebuildproc.pm

@@ -140 +140 @@
 }
 
+sub is_incremental
+{
+    # By default we return 'no' as the answer
+    # Safer to assume non-incremental to start with, and then override in
+    # inherited classes that are.
+
+    return 0;
+}
+
 sub get_num_docs {
     my $self = shift (@_);