Oleg Kulikov
and 1 contributors

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.