Raw File
Command.pm
package GAP::Command;

use strict;
use warnings;

use GAP;
use Command;

class GAP::Command {
    is => ['Command'],
    english_name => 'gap command',
};

sub command_name {
    my $self = shift;
    my $class = ref($self) || $self;
    return 'gap' if $class eq __PACKAGE__;
    return $self->SUPER::command_name(@_);
}

sub help_brief {
    "modularized commands for testing Workflow"
}

1;
back to top