view release on metacpan or  search on metacpan

t/Command.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), @_ ]);
    $obj;
}

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