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   574 use strict;
  1         2  
  1         36  
4 1     1   6 use warnings;
  1         2  
  1         80  
5              
6 1     1   9 use parent qw( Net::WebSocket::X::Base );
  1         3  
  1         6  
7              
8             sub _new {
9 1     1   237 my ($class, @names) = @_;
10              
11 1         11 return $class->SUPER::_new(
12             sprintf("Missing header(s): @names"),
13             names => \@names,
14             );
15             }
16              
17             1;