FM / Simple

/usr/share/perl5/vendor_perl/Pod/Simple/

/usr/share/perl5/vendor_perl/Pod/Simple

Name	Size	Mode	Actions
BlackBox.pm	86688	0644	edit dl rm
Checker.pm	5432	0644	edit dl rm
Debug.pm	4625	0644	edit dl rm
DumpAsText.pm	4035	0644	edit dl rm
DumpAsXML.pm	4560	0644	edit dl rm
HTML.pm	34759	0644	edit dl rm
HTMLBatch.pm	40656	0644	edit dl rm
HTMLLegacy.pm	2758	0644	edit dl rm
JustPod.pm	9637	0644	edit dl rm
LinkSection.pm	4301	0644	edit dl rm
Methody.pm	3571	0644	edit dl rm
Progress.pm	2413	0644	edit dl rm
PullParser.pm	25729	0644	edit dl rm
PullParserEndToken.pm	2884	0644	edit dl rm
PullParserStartToken.pm	4146	0644	edit dl rm
PullParserTextToken.pm	3363	0644	edit dl rm
PullParserToken.pm	4004	0644	edit dl rm
RTF.pm	23556	0644	edit dl rm
Search.pm	35836	0644	edit dl rm
SimpleTree.pm	4632	0644	edit dl rm
Subclassing.pod	33710	0644	edit dl rm
Text.pm	5103	0644	edit dl rm
TextContent.pm	2518	0644	edit dl rm
TiedOutFH.pm	2751	0644	edit dl rm
Transcode.pm	736	0644	edit dl rm
TranscodeDumb.pm	2693	0644	edit dl rm
TranscodeSmart.pm	715	0644	edit dl rm
XHTML.pm	26592	0644	edit dl rm
XMLOutStream.pm	4666	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Pod/Simple/Progress.pm (2413B)

require 5;
package Pod::Simple::Progress;
$VERSION = '3.42';
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__

cmd: