view release on metacpan or  search on metacpan

lib/App/oo_modulino_zsh_completion_helper.pm  view on Meta::CPAN

#!/usr/bin/env perl
package App::oo_modulino_zsh_completion_helper;
use 5.010;
use strict;
use warnings;

our $VERSION = "0.07";

use MOP4Import::Base::CLI_JSON -as_base
  , [fields =>
     [eol => default => "\n"],
     [lib =>
      doc => "library directory list. SCALAR, ARRAY or ':' separated STRING",
      zsh_completer => ": :_directories",
    ],
   ]
  ;

use MOP4Import::FieldSpec;
use MOP4Import::Util qw/fields_hash fields_array/;
use MOP4Import::Util::FindMethods;

lib/App/oo_modulino_zsh_completion_helper.pm  view on Meta::CPAN

  ;

sub cli_inspector {
  (my MY $self) = @_;
  require MOP4Import::Util::Inspector;
  'MOP4Import::Util::Inspector'->new(lib => $self->{lib});
}

sub onconfigure_zero {
  (my MY $self) = @_;
  $self->{eol} = "\0";
}

sub cmd_joined {
  (my MY $self, my ($method, @args)) = @_;
  my @completion = $self->$method(@args);
  print join($self->{eol}, @completion), $self->{eol};
}

sub IGNORE_OPTIONS_FROM {'MOP4Import::Base::CLI_JSON'}

sub zsh_options {
  (my MY $self, my %opts) = @_;

  my ZshParams $opts = \%opts;

  my ($targetClass, $has_shbang) = $self->load_module_from_pm($opts->{pmfile})