File Coverage

blib/lib/Alien/gputils.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	2	0.0
condition			n/a
subroutine	5	13	38.4
pod	7	7	100.0
total	27	51	52.9

package Alien::gputils;
use strict;
use warnings;
use File::Which qw(which);
use File::Spec;

our $VERSION = '0.02';
$VERSION = eval $VERSION;

use parent 'Alien::Base';

sub _get_gputils {
    my $self = shift;
    my $type = shift;
    my $bd = $self->bin_dir;
    my $exe = File::Spec->catfile($bd, $type);
    return $exe if -e $exe;
    $exe = which($type);
    return $exe;
}
sub gpasm { return $_[0]->_get_gputils('gpasm'); }
sub gplink { return $_[0]->_get_gputils('gplink'); }
sub gplib { return $_[0]->_get_gputils('gplib'); }
sub gpdasm { return $_[0]->_get_gputils('gpdasm'); }
sub gpstrip { return $_[0]->_get_gputils('gpstrip'); }
sub gpvc { return $_[0]->_get_gputils('gpvc'); }
sub gpvo { return $_[0]->_get_gputils('gpvo'); }

1;

__END__