diff options
Diffstat (limited to 'lib/subunit/perl')
| -rw-r--r-- | lib/subunit/perl/lib/Subunit.pm | 21 |
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; |