Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: e59d5b0487
Fetching contributors…

Cannot retrieve contributors at this time

34 lines (26 sloc) 0.65 kb
package TestApp::CLI::Command::echo;
use base 'Angelos::CLI::Command';
use Angelos::Config;
use Data::Dumper;
=head1 NAME
TestApp::CLI::Command::echo - echo carguments ommand
=cut
sub opt_spec {
return (
[ "blortex|X", "use the blortex algorithm" ],
[ "recheck|r", "recheck all results" ],
);
}
sub validate_args {
my ( $self, $opt, $args ) = @_;
# no args allowed but options!
$self->usage_error("No args allowed") if @$args;
}
sub run {
my ( $self, $opt, $args ) = @_;
my $result = $opt->{blortex};
my $debug = Angelos::Config->mixins;
warn Dumper $debug;
print $result . "\n";
}
1;
Jump to Line
Something went wrong with that request. Please try again.