view release on metacpan or  search on metacpan

lib/Perl/PrereqScanner/NotQuiteLite/Parser/Syntax.pm  view on Meta::CPAN

    $c->add($used_module => shift @$tokens);
  }

  return if ref $tokens->[0];

  my $feature_name = $tokens->[0];

  my $name =
    join '::',
    map ucfirst,
    split m{/},
    join '',
    map ucfirst,
    split qr{_}, $feature_name;

  my $feature_module = "Syntax::Feature::$name";
  if (is_module_name($feature_module)) {
    $c->add($feature_module => 0);
  }

  if ($feature_name =~ /^q[sil]$/) {

t/scan/keyword_declare.t  view on Meta::CPAN

                   { my %var = %+;
                     if (!$seen{$var{name}}++) {
                        $py_params .= "$var{name},";
                        $perl_args .= '\\' if $var{sigil} eq '@';
                        $perl_args .= "$var{sigil}$var{name},";
                     }
                     $var{name}
                   }gexms;
        $py_params =~ s{,$}{};
        my ($defs, $execs) = (q{}, q{});
        for my $construct (split m{^(?=\S)}xm, $block) {
            if ($construct =~ /\A\s*def\b/) { $defs  .= $construct; }
            else                            { $execs .= $construct; }
        }
        $execs =~ s{^}{    }gm;
        return ($defs  =~ /\S/ ? qq[ use Inline Python => q{$defs}; ] : q{})
             . ($execs =~ /\S/ ? qq[ use Inline Python => q{def $anon_sub($py_params):\n$execs}; $anon_sub($perl_args); ] : q{});
    }

    keyword LATIN (Blocklike $code) {
        use Lingua::Romana::Perligata ();