WWW::PAUSE::CleanUpHomeDir 0.001

WWW::PAUSE::CleanUpHomeDir is a Perl module to clean up old dists from your PAUSE home directory.

SYNOPSIS

use strict;
use warnings;

use WWW::PAUSE::CleanUpHomeDir;

my $pause = WWW::PAUSE::CleanUpHomeDir->new( 'PAUSE_ID', PASSWORD' );

$pause->fetch_list
or die $pause->error;

my @old_files = $pause->list_old;
die "No old files were foundn"
unless @old_files;

print @old_files . " old files were found:n" .
join "n", @old_files, '';

print "nEnter dist names you want to delete or just hit ENTER to delete"
. " delete all of themn";

my @to_delete = split ' ', ;
my $deleted_ref = $pause->clean_up(@to_delete)
or die $pause->error;

print "Deleted:n" . join "n", @$deleted_ref, '';

print "nWould you like to undelete any of these files? "
. "If not, just hit ENTERn";

my @to_undelete = split ' ', ;
die "Terminating..n"
unless @to_undelete;

$pause->undelete(@to_undelete)
or die $pause->error;

print "Success..n";

Product's homepage

Requirements:

· Perl