view release on metacpan or  search on metacpan

script/rsybak  view on Meta::CPAN

#            return 1;
#        } if ($output->{freq} < 0) {
#            return 1 if $now >= $output->{_mtime} - $output->{freq};
#        } else {
#            return 1 if abs($self->{pos} - $output->{_pos}) >= $output->{freq};
#        }
#        return 0;
#    }
#}
#
#sub update {
#    my ($self, %args) = @_;
#
#    my $pos   = delete($args{pos}) // $self->{pos} + 1;
#    my $state = delete($args{state}) // 'started';
#    $self->_update(pos => $pos, state => $state);
#
#    my $message  = delete($args{message});
#    my $priority = delete($args{priority}) // 'normal';
#    die "Unknown argument(s) to update(): ".join(", ", keys(%args))
#        if keys(%args);

script/rsybak  view on Meta::CPAN

#use strict;
#use warnings;
#
#our $VERSION = '0.214'; 
#
#sub new {
#    my ($class, %args) = @_;
#    bless \%args, $class;
#}
#
#sub update {
#    1;
#}
#
#1;
#
#__END__
#
### Progress/Any/Output/TermProgressBarColor.pm ###
#package Progress::Any::Output::TermProgressBarColor;
#

script/rsybak  view on Meta::CPAN

#        } else {
#            $msg = Text::ANSI::Util::ta_trunc($msg, $bwidth);
#            $mwidth = Text::ANSI::Util::ta_length($msg);
#        }
#        $bar_bar = $msg . substr($bar_bar, $mwidth);
#    }
#
#    return ("%s", $bar_bar);
#}
#
#sub update {
#    my ($self, %args) = @_;
#
#    return unless $ENV{PROGRESS_TERM_BAR} // $ENV{PROGRESS} // (-t $self->{fh});
#
#    my $now = time();
#
#    if (defined $self->{show_delay}) {
#        return if $now - $self->{show_delay} < $self->{_last_hide_time};
#    }
#