Devel::Trepan::BWProcessor -- A Bullwinkle-protocol processor for Devel::Trepan

This module adds the ability to speak the Bullwinkle protocol. It is intended as a more programmer-friendly interface for front-ends wanting to communicate with the debugger Devel::Trepan.

Usage

Distributed with this code is sample threaded code to show use from the front-end with and without a socket connection. First a session without sockets:

./bin/trepanbw.pl example/gcd.pl 3 5
{
  'location' => {
                  'canonic_filename' => '/tmp/example/gcd.pl',
                  'line_number' => 18,
                  'filename' => 'example/gcd.pl',
                  'op_addr' => 182625304
                },
  'text' => 'die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless 
      @ARGV == 2;',
  'name' => 'stop_location',
  'event' => 'line',
  'package' => 'main'
}

Bullwinkle read: {command =>'step'}
{
  'count' => 1,
  'name' => 'step'
}

{
  'location' => {
                  'canonic_filename' => '/tmp/example/gcd.pl',
                  'line_number' => 20,
                  'filename' => 'example/gcd.pl',
                  'op_addr' => 182625832
                },
  'text' => 'my ($a, $b) = @ARGV[0,1];',
  'name' => 'stop_location',
  'event' => 'line',
  'package' => 'main'
}

Bullwinkle read: {command =>'quit'}
{
 'name' => 'quit'
}

And now an example over a TCP/IP socket. In first shell:

./bin/trepanbw.pl --server example/gcd.pl 3 5

In second shell:

perl ./BWClient.pm 
Enter BW command: Got back...
{
  'location' => {
                  'canonic_filename' => '/tmp/example/gcd.pl',
                  'filename' => 'example/gcd.pl',
                  'line_number' => 18,
                  'op_addr' => 171383552
                },
  'text' => 'die sprintf "Need two integer arguments, got %d", scalar(@ARGV) unless 
     @ARGV == 2;',
  'name' => 'stop_location',
  'event' => 'line',
  'package' => 'main'
}
{'command'=>'quit', exit_code => 1}
Enter BW command: Got back...
{
  'name' => 'quit'
}
Remote debugged process closed connection

LICENSE AND COPYRIGHT

Copyright (C) 2011, 2012 Rocky Bernstein [email protected]

This program is distributed WITHOUT ANY WARRANTY, including but not limited to the implied warranties of merchantability or fitness for a particular purpose.

The program is free software. You may distribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation (either version 2 or any later version) and the Perl Artistic License as published by O’Reilly Media, Inc. Please open the files named gpl-2.0.txt and Artistic for a copy of these licenses.