- package App::smsg::Command::Group;
- use 5.010;
- use strict;
- use warnings;
- use utf8;
- BEGIN {
- $App::smsg::Command::Group::AUTHORITY = 'https://dr.jones.dk/me#me';
- $App::smsg::Command::Group::VERSION = '0.001';
- }
- use App::smsg -command;
- use namespace::clean;
- use constant abstract => q (Handle groups of recipients.);
- use constant usage_desc => '%c group %o <action> [<group>...]';
- use constant description => <<'DESCRIPTION';
- Compose, monitor or interact with groups of message recipients.
- Composition action is one of create, join, drop, content or list.
- Monitoring actions: follow.
- Keep connection open and emit change of state, i.e. each use, number of
- pending recipients, and when done.
- Interactive action is one of cancel or status.
- When group or an option is needed but not provided, it is attempted
- resolved from previous related communication, then from defaults, and
- then interactively prompted for.
- DESCRIPTION
- use constant opt_spec => (
- # [ 'verbose|v', "print extra stuff"],
- [ 'debug', "print debug stuff"],
- );
- sub validate_args {
- my ($self, $opt, $args) = @_;
- $self->usage_error("too few arguments") unless @$args >= 1;
- }
- sub execute {
- my ($self, $opt, $args) = @_;
- die 'FIXME: unimplemented!';
- }
- 1;
|