view release on metacpan or  search on metacpan

lib/App/Glacier/Directory.pm  view on Meta::CPAN

    my $rec = $self->retrieve(DB_INFO_KEY) || {};
    $rec->{$key} = $val;
    $self->SUPER::store(DB_INFO_KEY, $rec);
}

sub last_sync_time {
    my ($self) = @_;
    return $self->info('SyncTimeStamp');
}

sub update_sync_time {
    my ($self) = @_;
    $self->set_info('SyncTimeStamp', time);
}

sub foreach {
    my ($self, $code) = @_;
    $self->SUPER::foreach(sub {
	                      my ($k, $v) = @_;
			      &{$code}($k, $v) unless $k eq DB_INFO_KEY;
			  });

lib/App/Glacier/Progress.pm  view on Meta::CPAN

}

sub _getwidth {
    my ($self) = @_;
    unless ($self->{_width}) {
	($self->{_width}) = GetTerminalSize();
    }
    return $self->{_width};
}

sub update {
    my ($self) = @_;
    lock $self->{_current};
    ++$self->{_current};
    $self->display;
}

sub display {
    my ($self) = @_;
    return unless defined $self->{_tty};
    my $text = '';