File Coverage

blib/lib/Dist/Joseki/Base.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	0	4	0.0
total	12	45	26.6

package Dist::Joseki::Base;
use strict;
use warnings;
our $VERSION = '0.20';
use base qw(Class::Accessor::Complex);
__PACKAGE__->mk_new;

sub read_from_cmd {
    my ($self, $cmd) = @_;
    open my $fh, '-|', $cmd or die "can't read from pipe $cmd: $!\n";
    my @result = <$fh>;
    close $fh;
    wantarray ? @result : join '' => @result;
}

sub safe_system {
    my ($self, @args) = @_;
    system(@args) == 0 or die "system @args failed: $?";
}

sub assert_is_dist_base_dir {
    my $self = shift;
    die "Looks like this is not a distribution base directory\n"
      unless -e 'Makefile.PL' || -e 'Build.PL';
}

sub print_header {
    my ($self, $text) = @_;
    1 while chomp $text;
    print "\n", '-' x 75, "\n";
    print "$text\n";
    print '-' x 75, "\n\n";
}
1;
__END__