File Coverage

blib/lib/Net/WebSocket/Base/Typed.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition 2 3 66.6
subroutine 3 3 100.0
pod 0 1 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package Net::WebSocket::Base::Typed;
2              
3 23     23   11135 use strict;
  23         50  
  23         673  
4 23     23   133 use warnings;
  23         60  
  23         2111  
5              
6             sub get_type {
7 224     224 0 14798 my ($self) = @_;
8              
9 224   66     684 my $class = ref($self) || $self;
10              
11 224         486 my $last_colon = rindex( $class, ':' );
12 224         804 return substr( $class, 1 + $last_colon );
13             }
14              
15             1;