| blib/lib/Text/Mining/Protocol.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 3 | 3 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 1 | 1 | 100.0 |
| pod | n/a | ||
| total | 4 | 4 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Text::Mining::Protocol; | ||||||
| 2 | 1 | 1 | 1197 | use base qw(Text::Mining::Base); | |||
| 1 | 2 | ||||||
| 1 | 92 | ||||||
| 3 | use Class::Std; | ||||||
| 4 | use Class::Std::Utils; | ||||||
| 5 | |||||||
| 6 | use warnings; | ||||||
| 7 | use strict; | ||||||
| 8 | use Carp; | ||||||
| 9 | |||||||
| 10 | use version; our $VERSION = qv('0.0.8'); | ||||||
| 11 | |||||||
| 12 | { | ||||||
| 13 | my %attribute_of : ATTR( get => 'attribute', set => 'attribute' ); | ||||||
| 14 | |||||||
| 15 | |||||||
| 16 | } | ||||||
| 17 | |||||||
| 18 | 1; # Magic true value required at end of module | ||||||
| 19 | __END__ |