Debug-Client

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

recommends:
  ExtUtils::MakeMaker: '6.66'
  File::Spec::Functions: '3.4'
  List::Util: '1.27'
  Test::Pod: '1.48'
  Test::Pod::Coverage: '1.08'
requires:
  Carp: '1.3301'
  Exporter: '5.70'
  IO::Socket::IP: '0.29'
  PadWalker: '1.98'
  Term::ReadLine: '1.14'
  Term::ReadLine::Gnu: '1.24'
  constant: '1.27'
  perl: 5.10.1
resources:
  bugtracker: https://github.com/PadreIDE/Debug-Client/issues
  homepage: https://github.com/PadreIDE/Debug-Client
  license: http://dev.perl.org/licenses/
  repository: git://github.com/PadreIDE/Debug-Client.git
version: '0.34'

Makefile.PL  view on Meta::CPAN

name 'Debug-Client';
all_from 'lib/Debug/Client.pm';
requires_from 'lib/Debug/Client.pm';

perl_version '5.010001';

requires 'Carp'           => '1.3301';
requires 'Exporter'       => '5.70';
requires 'IO::Socket::IP' => '0.29';
requires 'PadWalker'      => '1.98';
requires 'Term::ReadLine' => '1.14';
requires 'constant'       => '1.27';

requires 'Term::ReadLine'       => '1.14';
requires 'Term::ReadLine::Gnu'  => '1.24' if !win32;

test_requires 'File::HomeDir'   => '1';
test_requires 'File::Temp'      => '0.2304';
test_requires 'List::Util'      => '1.38';
test_requires 'Test::CheckDeps' => '0.01';

lib/Debug/Client.pm  view on Meta::CPAN

	return $self->{buffer};
}

#######
# sub get_y_zero
#######
sub get_y_zero {
	my $self = shift;

	require PadWalker if 0; #forces PadWalker to be a requires not a test_requires

	# say 'running on perl '. $PERL_VERSION;
	if ( $PERL_VERSION >= 5.017006 && $PERL_VERSION <= 5.021003 ) {

		# say 'using y=1 instead as running on perl ' . $PERL_VERSION;
		$self->_send('y 1');
	} else {
		$self->_send('y 0');
	}

lib/Debug/Client.pm  view on Meta::CPAN

=item get_y_zero

From perldebug, but defaulted to y 0

 y [level [vars]]

Display all (or some) lexical variables (mnemonic: my variables) in the
current scope or level scopes higher. You can limit the variables that you see
with vars which works exactly as it does for the V and X commands. Requires
that the PadWalker module be installed
Output is pretty-printed in the same style as for V and the format is
controlled by the same options.

  $debugger->get_y_zero();

which is now y=1 since perl 5.17.6,

=item get_v_vars

V [pkg [vars]]

t/00-report-prereqs.t  view on Meta::CPAN

use List::Util qw/max/;

my @modules = qw(
	Carp
	Exporter
	File::HomeDir
	File::Spec
	File::Temp
	IO::Socket::IP
	List::Util
	PadWalker
	Term::ReadLine
	Term::ReadLine::Gnu
	Test::CheckDeps
	Test::Class
	Test::Deep
	Test::More
	Test::Requires
	Win32
	Win32::Process
	parent

t/01-compile.t  view on Meta::CPAN

local $OUTPUT_AUTOFLUSH = 1;

use Test::More tests => 18;

BEGIN {
	use_ok('Debug::Client');
	require_ok('./t/lib/Debugger.pm');

	use_ok( 'Carp',           '1.20' );
	use_ok( 'IO::Socket::IP', '0.21' );
	use_ok( 'PadWalker',      '1.96' );
	use_ok( 'Term::ReadLine', '1.1' );
	use_ok( 'constant',       '1.21' );

	use_ok( 'Exporter',        '5.64' );
	use_ok( 'File::HomeDir',   '1' );
	use_ok( 'File::Spec',      '3.4' );
	use_ok( 'File::Temp',      '0.2301' );
	use_ok( 'Test::CheckDeps', '0.006' );
	use_ok( 'Test::Class',     '0.39' );
	use_ok( 'Test::Deep',      '0.11' );

t/10-top_tail_old.t  view on Meta::CPAN

use 5.010;
use strict;
use warnings FATAL => 'all';

# Turn on $OUTPUT_AUTOFLUSH
local $| = 1;

use Test::More tests => 5;
use Test::Deep;
use PadWalker;

BEGIN {
  require "./t/lib/Debugger.pm";
  t::lib::Debugger->import;
}

ok( start_script('t/eg/14-y_zero.pl'), 'start script' );

my $debugger;
ok( $debugger = start_debugger(), 'start debugger' );

t/report-prereqs.t  view on Meta::CPAN

use List::Util qw/max/;

my @modules = qw(
	Carp
	Exporter
	File::HomeDir
	File::Spec
	File::Temp
	IO::Socket::IP
	List::Util
	PadWalker
	Term::ReadLine
	Test::CheckDeps
	Test::Class
	Test::Deep
	Test::More
	Test::Requires
	Win32
	Win32::Process
	parent
	version