Command Implementation
sub run { my $self = shift; my $command = 'cmd_'.($self->extra_argv->[0] || 'missing'); $self->cmd_commands unless $self->can($command); $self->_current_command($command); $self->$command; }
sub run { my $self = shift; my $command = 'cmd_'.($self->extra_argv->[0] || 'missing'); $self->cmd_commands unless $self->can($command); $self->_current_command($command); $self->$command; }