XMAN Replicator

Path: /usr/share/perl5/vendor_perl/Pod/Simple/

Name	Size	Rights	Date	Actions
[.]	<DIR>	drwxr-xr-x	2024-03-03 19:11	🔄 🗑️ 🗑️📁 ⬇️ 🔒
[..]	<DIR>	drwxr-xr-x	2024-03-03 19:11	🔄 🗑️ 🗑️📁 ⬇️ 🔒
BlackBox.pm	72,598 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Checker.pm	5,339 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Debug.pm	4,625 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
DumpAsText.pm	4,035 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
DumpAsXML.pm	4,560 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
HTML.pm	34,614 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
HTMLBatch.pm	40,144 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
HTMLLegacy.pm	2,758 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
LinkSection.pm	4,344 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Methody.pm	3,571 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Progress.pm	2,413 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
PullParser.pm	25,729 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
PullParserEndToken.pm	2,884 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
PullParserStartToken.pm	4,146 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
PullParserTextToken.pm	3,363 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
PullParserToken.pm	4,004 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
RTF.pm	22,484 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Search.pm	35,108 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
SimpleTree.pm	4,632 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Subclassing.pod	33,294 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Text.pm	5,103 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
TextContent.pm	2,518 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
TiedOutFH.pm	2,751 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
Transcode.pm	736 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
TranscodeDumb.pm	2,693 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
TranscodeSmart.pm	715 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
XHTML.pm	26,400 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒
XMLOutStream.pm	4,666 B	-rw-r--r--	2016-11-29 23:14	✏️ 🔄 🗑️ ⬇️ 🔒

Edit: Progress.pm

require 5;
package Pod::Simple::Progress;
$VERSION = '3.35';
use strict;

# Objects of this class are used for noting progress of an
#  operation every so often.  Messages delivered more often than that
#  are suppressed.
#
# There's actually nothing in here that's specific to Pod processing;
#  but it's ad-hoc enough that I'm not willing to give it a name that
#  implies that it's generally useful, like "IO::Progress" or something.
#
# -- sburke
#
#--------------------------------------------------------------------------

sub new {
  my($class,$delay) = @_;
  my $self = bless {'quiet_until' => 1},  ref($class) || $class;
  $self->to(*STDOUT{IO});
  $self->delay(defined($delay) ? $delay : 5);
  return $self;
}

sub copy { 
  my $orig = shift;
  bless {%$orig, 'quiet_until' => 1}, ref($orig);
}
#--------------------------------------------------------------------------

sub reach {
  my($self, $point, $note) = @_;
  if( (my $now = time) >= $self->{'quiet_until'}) {
    my $goal;
    my    $to = $self->{'to'};
    print $to join('',
      ($self->{'quiet_until'} == 1) ? () : '... ',
      (defined $point) ? (
        '#',
        ($goal = $self->{'goal'}) ? (
          ' ' x (length($goal) - length($point)),
          $point, '/', $goal,
        ) : $point,
        $note ? ': ' : (),
      ) : (),
      $note || '',
      "\n"
    );
    $self->{'quiet_until'} = $now + $self->{'delay'};
  }
  return $self;
}

#--------------------------------------------------------------------------

sub done {
  my($self, $note) = @_;
  $self->{'quiet_until'} = 1;
  return $self->reach( undef, $note );
}

#--------------------------------------------------------------------------
# Simple accessors:

sub delay {
  return $_[0]{'delay'} if @_ == 1; $_[0]{'delay'} = $_[1]; return $_[0] }
sub goal {
  return $_[0]{'goal' } if @_ == 1; $_[0]{'goal' } = $_[1]; return $_[0] }
sub to   {
  return $_[0]{'to'   } if @_ == 1; $_[0]{'to'   } = $_[1]; return $_[0] }

#--------------------------------------------------------------------------

unless(caller) { # Simple self-test:
  my $p = __PACKAGE__->new->goal(5);
  $p->reach(1, "Primus!");
  sleep 1;
  $p->reach(2, "Secundus!");
  sleep 3;
  $p->reach(3, "Tertius!");
  sleep 5;
  $p->reach(4);
  $p->reach(5, "Quintus!");
  sleep 1;
  $p->done("All done");
}

#--------------------------------------------------------------------------
1;
__END__

🛸 XMAN Replicator

Edit: Progress.pm

PHP Console

SQL Console