view release on metacpan or  search on metacpan

lib/App/BackupPlan.pm  view on Meta::CPAN

            %files = &getFiles($policy->getTargetDir,$policy->getPrefix);
            $cnt--;
        } #end while
    } #end if    
}

sub run {
	my ($self,$now) = @_;
	$now = time unless defined $now;
	
	#validate the config file
	die "App::BackupPlan configuration file is required, but was not given!" unless defined $self->{config};

	#logging config
	if (defined $self->{log}) {
		Log::Log4perl::init($self->{log});
	} else {
        Log::Log4perl->easy_init( { level   => $INFO,
                                    file    => ">>easy.log" } );
	}