File Coverage

blib/lib/R/Setup.pm

Criterion	Covered	Total	%
statement	23	73	31.5
branch	0	26	0.0
condition	0	12	0.0
subroutine	8	18	44.4
pod	0	10	0.0
total	31	139	22.3

# perl program for R installation
#
# Copyright (C) 2015, Snehasis Sinha
#

package R::Setup;

use 5.010001;
use strict;
use warnings;

use R::Setup::Bootstrap;
use R::Setup::Resolve;
use R::Setup::Download;
use R::Setup::Install;
use R::Setup::Local;

our @ISA = qw();
our $VERSION = '0.01';


# package methods

sub new {
	my $class = shift;
	my %params = @_;
	my $self = {
		bootstrap => $params{'bootstrap'} || undef,
		resolve   => $params{'resolve'}   || undef,
		download  => $params{'download'}  || undef,
		install   => $params{'install'}   || undef,
		asklist   => $params{'packages'},
		rsource   => $params{'rsource'} || 'R-3.1.2.tar.gz',
		urlbase   => $params{'urlbase'}, # only required for local
		deplist   => undef,
		tarlist   => undef,
		# listfile  => $params{'depslistfile'}  || 'package.list',
		verbose   => $params{'verbose'} || 1, # default:yes
	};
	bless $self, $class;
	return $self;
}

sub download_source {
	my ($self, %args) = (@_);

	$args{'source'} = $self->{'rsource'} unless defined $args{'source'};
	$self->{'download'} = R::Setup::Download->new unless defined $self->{'download'};
	$self->{'download'}->download_binary (source=>$args{'source'});
}

sub set_package_list {
	my ($self) = (@_);

	# resolve dependencies
	unless (defined $self->{'resolve'}) {
		unless (defined $self->{'asklist'}) {
			print "no package list supplied. exit!\n" if $self->{'verbose'};
		}

		$self->{'resolve'} = R::Setup::Resolve->new(packages=>$self->{'asklist'});
	}
	$self->{'deplist'} = $self->{'resolve'}->resolve;
	$self->save ( whichlist=>'deplist' );
}

sub download_packages {
	my ($self) = (@_);

	# read from default file for consistency
	$self->read ( whichlist=>'deplist' ) unless defined $self->{'deplist'};

	# download deps package in this session
	$self->{'download'} = R::Setup::Download->new ( packages=>$self->{'deplist'} );

	$self->{'download'}->prepare ( refresh=>1 );
	$self->{'tarlist'} = $self->{'download'}->dumplist;
	# store in file for offline installation
	$self->save ( whichlist=>'tarlist' );

	# download packages
	$self->{'download'}->download;
}

sub read {
	my ($self, %args) = (@_);
	my @t;

	open FILE, '<'.$args{'whichlist'} or die $!;
	@t = ;
	close FILE;
	chomp @t;

	$self->{$args{'whichlist'}} = \@t;
	print scalar @t." records loaded from ".$args{'whichlist'}."\n" if $self->{'verbose'};
}

sub save {
	my ($self, %args) = (@_);

	open FILE, '>'.$args{'whichlist'} or die $!;
	foreach ( @{$self->{$args{'whichlist'}}} ) {
		print FILE $_."\n";
	}
	close FILE;
}

sub build_from_source {
	my ($self) = (@_);

	$self->{'bootstrap'} = R::Setup::Bootstrap->new unless defined $self->{'bootstrap'};
	$self->{'bootstrap'}->build;
}

sub install {
	my ($self) = (@_);

	$self->{'bootstrap'} = R::Setup::Bootstrap->new unless defined $self->{'bootstrap'};

	# install R with sudo
	$self->{'bootstrap'}->install;
}

sub install_packages {
	my ($self) = (@_);

	# read from default file for consistency
	$self->read ( whichlist=>'tarlist' ) unless defined $self->{'tarlist'};

	$self->{'install'} = R::Setup::Install->new (list=>$self->{'tarlist'})
		unless defined $self->{'install'};

	# install packages with sudo
	$self->{'install'}->install;
}

sub download_local {
	my ($self) = (@_);

	my $ldw = R::Setup::Local->new ( urlbase=>$self->{'urlbase'} );
	$ldw->download_local;
}

1;
__END__