Perl-LanguageServer

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "AnyEvent::AIO" : "0",
            "Class::Refresh" : "0",
            "Compiler::Lexer" : "0.23",
            "Coro" : "0",
            "Data::Dump" : "0",
            "Encode::Locale" : "0",
            "Hash::SafeKeys" : "0",
            "IO::AIO" : "0",
            "JSON" : "0",
            "Moose" : "0",
            "PadWalker" : "0",
            "Scalar::Util" : "0",
            "perl" : "5.016"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/richterger/Perl-LanguageServer/issues"
      },

META.yml  view on Meta::CPAN

  AnyEvent::AIO: '0'
  Class::Refresh: '0'
  Compiler::Lexer: '0.23'
  Coro: '0'
  Data::Dump: '0'
  Encode::Locale: '0'
  Hash::SafeKeys: '0'
  IO::AIO: '0'
  JSON: '0'
  Moose: '0'
  PadWalker: '0'
  Scalar::Util: '0'
  perl: '5.016'
resources:
  bugtracker: https://github.com/richterger/Perl-LanguageServer/issues
  repository: https://github.com/richterger/Perl-LanguageServer.git
version: v2.6.2
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

        'Test::More' => '0',
    },
    PREREQ_PM => {
        'Moose'              => '0',
        'AnyEvent'           => '0',
        'IO::AIO'            => '0',
        'AnyEvent::AIO'      => '0',
        'Coro'               => '0',
        'JSON'               => '0',
        'Data::Dump'         => '0',
        'PadWalker'          => '0',
        'Scalar::Util'       => '0',
        'Class::Refresh'     => '0',
        'Compiler::Lexer'    => '0.23',
        'Hash::SafeKeys'     => '0',
        'Encode::Locale'     => '0',
    },
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => 'Perl-LanguageServer-*' },
);

lib/Perl/LanguageServer/DebuggerInterface.pm  view on Meta::CPAN

package Perl::LanguageServer::DebuggerInterface ;

#use DB;

our @ISA = qw(DB);

use strict ;

use IO::Socket ;
use JSON ;
use PadWalker ;
use Scalar::Util qw{blessed reftype looks_like_number};
use Hash::SafeKeys;
#use Data::Dump qw{pp} ;
use File::Basename ;
use vars qw{@dbline %dbline $dbline} ;

our $max_display = 5 ;
our $debug = 0 ;
our $session = $ENV{PLSDI_SESSION} || 1 ;
our $socket ;

lib/Perl/LanguageServer/DebuggerInterface.pm  view on Meta::CPAN

# ---------------------------------------------------------------------------

sub get_locals
    {
    my ($self, $frame) = @_ ;

    my $vars  ;
    my %varsrc ;
    eval
        {
        $vars = PadWalker::peek_my ($frame) ;
        foreach my $var (keys %$vars)
            {
            $varsrc{$var} =
                [
                $vars->{$var},
                "el:\$varsrc->{'$var'}"
                ] ;
            }
        } ;
    $self -> logger ($@) if ($@) ;

lib/Perl/LanguageServer/DebuggerInterface.pm  view on Meta::CPAN

    return "$___di_sigil$___di_var$___di_suffix" ;
    }

# ---------------------------------------------------------------------------

sub get_eval_result
    {
    my ($self, $frame, $package, $expression) = @_;

    my $___di_vars = PadWalker::peek_my ($frame) ;

    $expression =~ s/([\%\@\$])(#?\w+)\s*([\[\{])?/_eval_replace($___di_vars, $1, $2, $3, $frame)/eg ;

    my $code = "package $package ; no strict ; $expression";
    my %vars ;
    #print STDERR "frame=$frame code = $code\n" ;


    my @result = eval $code;
    if ($@)