File Coverage

blib/lib/Net/RRP/Exception/MissingCommandOption.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package Net::RRP::Exception::MissingCommandOption;
2              
3             $Net::RRP::Exception::MissingCommandOption::VERSION = '0.02';
4             @Net::RRP::Exception::MissingCommandOption::ISA = qw ( Net::RRP::Exception );
5              
6 1     1   5 use strict;
  1         1  
  1         28  
7 1     1   1774 use Net::RRP::Exception;
  0            
  0            
8              
9             sub new
10             {
11             my $class = shift;
12             $class->SUPER::new ( -value => 509,
13             -text => 'Missing command option' );
14             }
15              
16             1;