view release on metacpan or  search on metacpan

lib/Canella/CLI.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
package Canella::CLI;
use Moo;
use Canella::Context;
use Canella::Log;
use Getopt::Long ();
use Guard;
 
sub parse_argv {
    my ($self, $ctx, @argv) = @_;
 
    local @ARGV = @argv;
    my $p = Getopt::Long::Parser->new;
    $p->configure(qw(
        posix_default
        no_ignore_case
        auto_help
    ));
    my @optspec = qw(
        config|c=s
        set|s=s%
        concurrency|C=i

lib/Canella/Context.pm  view on Meta::CPAN

144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
=head1 $section
 
@{[ $self->docs->get($section) ]}
 
EOM
    }
 
    print $tempfile "\n=cut\n";
    $tempfile->flush;
 
    local @ARGV = ('-F', $tempfile->filename);
    exit(Pod::Perldoc->run());
}
 
# Thread-specific stash
sub stash {
    my $self = shift;
    my $stash = $Coro::current->{Canella} ||= {};
 
    if (@_ == 0) {
        return $stash;