File Coverage

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


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