view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.1.4   2017-09-19
        Updating for release of version 0.1.4
        Adding missing IO::Prompt dependency (Ivan Wills)
        Adding new tests (Ivan Wills)
        Fixed spelling (Ivan Wills)
        Documenting command_param (Ivan Wills)
        Added new V::T::C::Who to manifest (Ivan Wills)
        New Who command for simple details of current session/terminal (Ivan Wills)
        Fixing undefined hooks (Ivan Wills)
        Adding ability to paramertise params with a prompt (Ivan Wills)
        Updated synopsis with newer commands (Ivan Wills)
        Added comment to show what version of vtide created a Config file (Ivan Wills)

0.1.3   2017-06-04
        Updating for release of version 0.1.3
        turning off tests (Ivan Wills)
        Trying to get more informative error messages (Ivan Wills)
        Better command display (Ivan Wills)
        Added examples (Ivan Wills)

lib/App/VTide/Command/Run.pm  view on Meta::CPAN

use Moo;
use warnings;
use version;
use Carp                qw/carp longmess/;
use English             qw/ -no_match_vars /;
use Hash::Merge::Simple qw/ merge /;
use Path::Tiny;
use File::stat;
use File::chdir;
use IO::Prompt qw/prompt/;
use Algorithm::Cron;
use List::MoreUtils qw/uniq/;

extends 'App::VTide::Command';

our $VERSION = version->new('1.0.6');
our $NAME    = 'run';
our $OPTIONS = [ 'name|n=s', 'test|T!', 'save|s=s', 'verbose|v+', ];
our $LOCAL   = 1;
sub details_sub { return ( $NAME, $OPTIONS, $LOCAL ) }

lib/App/VTide/Command/Run.pm  view on Meta::CPAN

    return merge $config->{default} || {}, $params;
}

sub command_param {
    my ( $self, $param ) = @_;

    my ($user_param) = $param =~ /^[{]:(\w+):[}]$/;

    return $param if !$user_param;

    my $value = prompt "$user_param : ";
    chomp $value;

    return $value;
}

sub command {
    my ( $self, $params, $recurse ) = @_;

    if ( !$params->{edit} ) {
        return