File Coverage

blib/lib/App/Provision/Tiny.pm

Criterion	Covered	Total	%
statement	22	35	62.8
branch	1	10	10.0
condition	2	9	22.2
subroutine	5	9	55.5
pod	4	4	100.0
total	34	67	50.7

package App::Provision::Tiny;
our $AUTHORITY = 'cpan:GENE';

# ABSTRACT: Provision computers

use strict;
use warnings;

use File::Which;

our $VERSION = '0.0404';



sub new
{
    my $class = shift;
    my %args = @_;
    my $self = {};
    bless $self, $class;
    $self->_init(%args, class => $class);
    return $self;
}

sub _init
{
    my $self = shift;
    my %args = @_;

    # Turn arguments into object attributes.
    $self->{$_} = $args{$_} || undef for keys %args;

    # Set the system to provision.
    $self->{system} ||= 'osx';

    # Set the program to provision on the system.
    unless ($self->{program})
    {
        $self->{class} =~ s/App::Provision::(\w+)$/$1/;
        $self->{program} = lc $self->{class};
    }
}


sub condition
{
    my $self = shift;
    my $callback = shift || sub { which($self->{program}) };
    my $condition = $callback->();
    warn "$self->{program} ", ($condition ? 'is' : "isn't"), " installed\n";
    return $condition ? 1 : 0;
}


sub recipe
{
    my $self = shift;
    my @steps = @_;
    $self->system_install(@steps) if $self->{force} || !$self->condition;
}


sub system_install
{
    my $self = shift;
    my @commands = @_;
    for my $cmd (@commands)
    {
        #warn "CMD: @$cmd\n";
        system(@$cmd) == 0 or warn "system @$cmd failed: $?";
    }
}

1;

__END__