Add support for progress reporting in Perl module.

1 files changed, 21 insertions, 0 deletions

diff --git a/perl/lib/Subunit.pm b/perl/lib/Subunit.pm
index 0520674..dac4a26 100644
--- a/perl/lib/Subunit.pm
+++ b/perl/lib/Subunit.pm
@@ -159,4 +159,25 @@ sub report_time($)
 	printf "time: %04d-%02d-%02d %02d:%02d:%02dZ\n", $year+1900, $mon, $mday, $hour, $min, $sec;
 }
 
+sub progress_pop()
+{
+	print "progress: pop\n";
+}
+
+sub progress_push()
+{
+	print "progress: push\n";
+}
+
+sub progress($;$)
+{
+	my ($count, $whence) = @_;
+
+	unless(defined($whence)) {
+		$whence = "";
+	}
+
+	print "progress: $whence$count\n";
+}
+
 1;