File Coverage

blib/lib/Protocol/WebSocket/Handshake.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	3	4	75.0
condition	4	6	66.6
subroutine	8	9	88.8
pod	5	5	100.0
total	40	45	88.8

package Protocol::WebSocket::Handshake;

use strict;
use warnings;

use Protocol::WebSocket::Request;
use Protocol::WebSocket::Response;

sub new {
    my $class = shift;
    $class = ref $class if ref $class;

    my $self = {@_};
    bless $self, $class;

    return $self;
}

sub error { @_ > 1 ? $_[0]->{error} = $_[1] : $_[0]->{error} }

sub version { $_[0]->req->version }

sub req { shift->{req} ||= Protocol::WebSocket::Request->new }
sub res { shift->{res} ||= Protocol::WebSocket::Response->new }

1;
__END__