| blib/lib/Games/Set/Card.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 6 | 6 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 2 | 2 | 100.0 |
| pod | n/a | ||
| total | 8 | 8 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | 1 | 1 | 5 | use strict; | |||
| 1 | 1 | ||||||
| 1 | 84 | ||||||
| 2 | package Games::Set::Card; | ||||||
| 3 | 1 | 1 | 5 | use base 'Class::Accessor::Fast'; | |||
| 1 | 2 | ||||||
| 1 | 818 | ||||||
| 4 | our %properties = ( count => [ qw( one two three ) ], | ||||||
| 5 | colour => [ qw( red green purple ) ], | ||||||
| 6 | shape => [ qw( oval squiggle diamond ) ], | ||||||
| 7 | pattern => [ qw( solid open striped ) ], | ||||||
| 8 | ); | ||||||
| 9 | __PACKAGE__->mk_accessors( keys %properties ); | ||||||
| 10 | |||||||
| 11 | 1; | ||||||
| 12 | __END__ |