=> $violation->explanation,
diagnostics => $violation->diagnostics,
};
}
$self->render( json => \@results );
}
sub _capture_cmd_output {
my $self = shift;
my $cmd = shift;
my $opts
aram('input');
my $o = $self->_capture_cmd_output( $^X, [], $source, $input );
$self->render( json => $o );
}
sub run_perlbrew_exec {
my $self = shift;
my $source = $self->param('source');
m
$self->_capture_cmd_output( 'perlbrew', [ 'exec', 'perl' ],
$source, $input );
$self->render( json => $o );
}
# Taken from Padre::Plugin::PerlTidy
# TODO document it in 'SEE ALSO' POD section
sub