7 my $class = ref($proto) || $proto;
11 my $progress = \
${$self->{PROGRESS
}};
12 my $last_progress = \
${$self->{LAST_PROGRESS
}};
13 my $progress_count = \
${$self->{PROGRESS_COUNT
}};
14 my $prefix = \
${$self->{PREFIX
}};
27 my $progress = \
${$self->{PROGRESS
}};
28 my $last_progress = \
${$self->{LAST_PROGRESS
}};
29 my $progress_count = \
${$self->{PROGRESS_COUNT
}};
33 if($$progress_count > 0 && $$progress) {
34 print STDERR
$$progress;
35 $$last_progress = $$progress;
41 my $progress = \
${$self->{PROGRESS
}};
42 my $last_progress = \
${$self->{LAST_PROGRESS
}};
43 my $progress_count = \
${$self->{PROGRESS_COUNT
}};
49 for (1..length($$last_progress)) {
52 print STDERR
$message;
53 undef $$last_progress;
59 my $progress = \
${$self->{PROGRESS
}};
60 my $last_progress = \
${$self->{LAST_PROGRESS
}};
65 for (1..length($$last_progress)) {
69 my $diff = length($$last_progress)-length($$progress);
79 print STDERR
$prefix . $$progress . $suffix;
80 $$last_progress = $$progress;
85 my $progress = \
${$self->{PROGRESS
}};
89 $self->update_progress;
94 my $prefix = \
${$self->{PREFIX
}};
104 my $prefix = \
${$self->{PREFIX
}};
106 $self->hide_progress;
107 print $$prefix . $message;
108 $self->show_progress;