summaryrefslogtreecommitdiff
path: root/lib/subunit/perl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/subunit/perl')
-rw-r--r--lib/subunit/perl/lib/Subunit.pm21
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/subunit/perl/lib/Subunit.pm b/lib/subunit/perl/lib/Subunit.pm
index 05206748e2..dac4a2601d 100644
--- a/lib/subunit/perl/lib/Subunit.pm
+++ b/lib/subunit/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;