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.