NAME

Cmd::Interpreter - Support for line-oriented command interpreters

SYNOPSIS

use Cmd::Interpreter;
our @ISA = qw(Cmd::Interpreter);

DESCRIPTION

Cmd::Interpreter provides a simple framework for writing line-oriented command interpreters.

USAGE

Write your class
package Example::Hello;

use strict;
use warnings;

use Cmd::Interpreter;

our @ISA = qw(Cmd::Interpreter);

sub help {
    my $self = shift;
    print "common help\n";
    return '';
}

sub do_hello {
    my $self = shift;
    print "Hello " . (shift || "World") . "!\n";
    return '';
}

sub help_hello {
    my $self = shift;
    print "help for hello\n";
    return '';
}

sub do_quit {
    my $self = shift;
    print "By\n";
    return "quit";
}

sub empty_line {
}

1;
Use your class
#!/usr/bin/env perl
use strict;
use warnings;

use Example::Hello;

my $ex = Example::Hello->new(prompt => 'example> ');
$ex->run("Welcome to hello world app.");

API - may be useful for introduce or overriding

Class constructor

You can pass program name as prog_name, prompt as prompt.

Your functions

Loop stoping if function returns true value aka stop flag.

do_foo
Will execute on command 'foo'.
help_foo
Will execute on command '?foo' or 'help foo'.
help
Will execute when input is '?' or 'help'.

Framework functions

pre_loop
Will execute before loop.
post_loop
Will execute after loop.
pre_cmd
Receive input line, return one (can be changed).
post_cmd
Receive stop flag, line (from pre_cmd). Return stop flag.
default_action
Will execute when input command not exists.
empty_line
Will execute when input defined but empty. By default execute
last command if one exists.
no_input
Will execute when input undefined.
do_shell
Will execute when input is '!cmd [args]' or 'shell cmd [args]'.

FAQ

Command history

Command history works fine with such module like Term::ReadLine::Perl.

git ready

You can install Cmd::Interpreter from cpanm git@github.com:oakulikov/Cmd-Interpreter.git.

AUTHOR

Oleg Kulikov <oakulikov@yandex.ru>

THANKS TO

Authors of Python Lib/cmd.py

LICENSE

Copyright (C) Oleg Kulikov.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.