File Coverage

lib/Devel/Trepan/Interface/ComCodes.pm
Criterion Covered Total %
statement 36 36 100.0
branch n/a
condition n/a
subroutine 12 12 100.0
pod n/a
total 48 48 100.0


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
3 13     13   4612 use warnings; use strict;
  13     13   33  
  13         382  
  13         68  
  13         25  
  13         914  
4              
5             # Communication status codes
6             package Devel::Trepan::Interface::ComCodes;
7              
8             our (@ISA, @EXPORT);
9             @ISA = qw(Exporter);
10             @EXPORT = qw(PRINT COMMAND CONFIRM_TRUE CONFIRM_FALSE CONFIRM_REPLY QUIT PROMPT RESTART SERVERERR);
11              
12             # Most of these go from debugged process to front-end
13             # client interface. COMMAND goes the other way.
14              
15 13     13   2217 use constant PRINT => '.';
  13         38  
  13         737  
16 13     13   75 use constant COMMAND => 'C';
  13         28  
  13         533  
17 13     13   74 use constant CONFIRM_TRUE => 'Y';
  13         34  
  13         535  
18 13     13   72 use constant CONFIRM_FALSE => 'N';
  13         30  
  13         561  
19 13     13   79 use constant CONFIRM_REPLY => '?';
  13         35  
  13         570  
20 13     13   76 use constant QUIT => 'q';
  13         28  
  13         581  
21 13     13   83 use constant PROMPT => 'p';
  13         31  
  13         591  
22 13     13   99 use constant RESTART => 'r';
  13         40  
  13         555  
23 13     13   73 use constant SERVERERR => '!';
  13         30  
  13         528  
24              
25             # This constant indicates a protocol error accross the wire and is
26             # used internally for syncronization.
27 13     13   67 use constant PROTOERROR => 'X';
  13         30  
  13         554  
28              
29             1;