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 | 9 | 9 | 2536 | use strict; | |||
9 | 17 | ||||||
9 | 222 | ||||||
4 | 9 | 9 | 42 | use warnings; | |||
9 | 58 | ||||||
9 | 598 | ||||||
5 | |||||||
6 | sub get_type { | ||||||
7 | 112 | 112 | 0 | 15710 | my ($self) = @_; | ||
8 | |||||||
9 | 112 | 66 | 326 | my $class = ref($self) || $self; | |||
10 | |||||||
11 | 112 | 223 | my $last_colon = rindex( $class, ':' ); | ||||
12 | 112 | 325 | return substr( $class, 1 + $last_colon ); | ||||
13 | } | ||||||
14 | |||||||
15 | 1; |