File Coverage

blib/lib/App/MaMGal/CommandChecker.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	29	32	90.6

# mamgal - a program for creating static image galleries
# Copyright 2009-2008 Marcin Owsiany
# See the README file for license information
# A class for checking existance of commands, basically a wrapper for
# "which(1)"
package App::MaMGal::CommandChecker;
use strict;
use warnings;
use base 'App::MaMGal::Base';
use Carp;

sub init
{
	my $self = shift;
	croak "No arguments allowed" if @_;
}

sub is_available
{
	my $self = shift;
	my $command = shift or croak 'One argument required';
	croak 'Just one argument allowed' if @_;
	system("which $command >/dev/null 2>&1") == 0;
}

1;