File Coverage

blib/lib/Protocol/PerlDebugCLI/Request.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1              
2             # thin object wrapper, avoid CPAN indexer since this doesn't
3             # do enough yet to have proper documentation
4             package
5             Protocol::PerlDebugCLI::Request;
6              
7 2     2   13 use strict;
  2         4  
  2         66  
8 2     2   11 use warnings;
  2         4  
  2         187  
9              
10             sub new {
11 1     1 0 2 my $class = shift;
12 1         5 bless { @_ }, $class;
13             }
14              
15 1     1 0 5 sub command { shift->{command} }
16              
17             1;
18