view release on metacpan or  search on metacpan

script/elive_lint_config  view on Meta::CPAN

    perldoc Elive
    http://search.cpan.org/dist/Elive

=cut

main(@ARGV) unless caller;

sub main {

    local(@ARGV) = @_;

    my $help;

    (GetOptions(
	 'help|?' => \$help,
	)
	&& (($help && pod2usage(0)) || (my $config_file = shift @ARGV))
	&& (!@ARGV))
	|| pod2usage(2);

script/elive_query  view on Meta::CPAN

perldoc Elive
L<http://search.cpan.org/dist/Elive/>

=cut

main(@ARGV) unless caller;

sub main {

    local(@ARGV) = @_;

    our $elive_version = ${Elive::VERSION};
    our %entity_collections;
    #
    # this may barf if /dev/tty can't be opened. E.g. when executing from cron
    our $interactive = eval { IO::Interactive::is_interactive() };

    our $term;
    if ($interactive) {
	$term = eval { Term::ReadLine->new('elive shell') }

script/elive_raise_meeting  view on Meta::CPAN

main(@ARGV) unless caller;

sub bail {
    Elive->disconnect;
    die @_;
}

sub main {

    local(@ARGV) = @_;

    my %session_data = (
	name => 'elive test meeting',
	boundaryMinutes => 15,
	);

    GetOptions(
	'username|user=s' => \$username,
	'password|pass=s' => \$password,
	'start=s' => \$start_str,