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);