File Coverage

blib/lib/Protocol/SPDY/Tracer.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 4 6 66.6
pod 3 3 100.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Protocol::SPDY::Tracer;
2             $Protocol::SPDY::Tracer::VERSION = '1.001';
3 3     3   11 use strict;
  3         3  
  3         89  
4 3     3   11 use warnings;
  3         5  
  3         70  
5 3     3   11 use parent qw(Protocol::SPDY::Base);
  3         3  
  3         13  
6              
7             =head1 NAME
8              
9             Protocol::SPDY::Tracer - helper class for tracing SPDY sessions
10              
11             =head1 VERSION
12              
13             version 1.001
14              
15             =head1 SYNOPSIS
16              
17             =head1 DESCRIPTION
18              
19             See L and L.
20              
21             =cut
22              
23             =head1 METHODS
24              
25             =cut
26              
27             =head2 control_frame_bytes
28              
29             Returns byte representation of the given control frame.
30              
31             my $bytes = $tracer->control_frame_bytes(GOAWAY => [ ]);
32              
33             =cut
34              
35             sub control_frame_bytes {
36 10     10 1 17 my $self = shift;
37 10         13 my $type = shift;
38 10         17 my $args = shift;
39 10         36 Protocol::SPDY::Frame::Control->find_class_for_type($type)->new(
40             version => $self->version,
41             @$args,
42             )->as_packet($self->sender_zlib)
43             }
44              
45             =head2 dispatch_unhandled_frame
46              
47             Ignore unhandled frames.
48              
49             =cut
50              
51 0     0 1   sub dispatch_unhandled_frame { }
52              
53             =head2 write
54              
55             Write requests are always ignored here.
56              
57             =cut
58              
59 0     0 1   sub write { }
60              
61             1;
62              
63             =head1 AUTHOR
64              
65             Tom Molesworth
66              
67             =head1 LICENSE
68              
69             Copyright Tom Molesworth 2011-2015. Licensed under the same terms as Perl itself.