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