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 | 6 | 6 | 1536 | use strict; | |||
6 | 11 | ||||||
6 | 139 | ||||||
4 | 6 | 6 | 25 | use warnings; | |||
6 | 11 | ||||||
6 | 388 | ||||||
5 | |||||||
6 | sub get_type { | ||||||
7 | 101 | 101 | 0 | 13904 | my ($self) = @_; | ||
8 | |||||||
9 | 101 | 66 | 276 | my $class = ref($self) || $self; | |||
10 | |||||||
11 | 101 | 188 | my $last_colon = rindex( $class, ':' ); | ||||
12 | 101 | 274 | return substr( $class, 1 + $last_colon ); | ||||
13 | } | ||||||
14 | |||||||
15 | 1; |