view release on metacpan or  search on metacpan

t/App/cdif/Command.pm  view on Meta::CPAN

    my $obj = shift;
    if (@_) {
	$debug = shift;
    } else {
	$debug;
    }
}

sub new {
    my $class = shift;
    my $obj = $class->SUPER::new;
    $obj->command(@_) if @_;
    $obj;
}

sub command {
    my $obj = shift;
    if (@_) {
	$obj->{COMMAND} = [ @_ ];
	$obj;
    } else {

t/ac.pm  view on Meta::CPAN

use v5.14;
use warnings;
use utf8;
use Carp;
use Data::Dumper;

$ENV{PERL5LIB} = join ':', @INC;

sub new {
    my $class = shift;
    my $obj = $class->SUPER::new();
    $obj->command([ $^X, qw(-Ilib script/ansicolumn), @_ ]);
    $obj;
}

sub exec {
    my $obj = shift;
    my $stdin = shift;
    $obj->setstdin($stdin) if defined $stdin;
    my $result = $obj->update->data;
    $result =~ s/ +$//mg;