File Coverage

blib/lib/Net/WebSocket/X/MissingHeaders.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Net::WebSocket::X::MissingHeaders;
2              
3 1     1   545 use strict;
  1         2  
  1         35  
4 1     1   6 use warnings;
  1         2  
  1         28  
5              
6 1     1   4 use parent qw( Net::WebSocket::X::Base );
  1         2  
  1         4  
7              
8             sub _new {
9 1     1   225 my ($class, @names) = @_;
10              
11 1         9 return $class->SUPER::_new(
12             sprintf("Missing header(s): @names"),
13             names => \@names,
14             );
15             }
16              
17             1;