| blib/lib/Acme/PriPara/MainMembers/HojoSophy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 12 | 12 | 100.0 |
| branch | 2 | 2 | 100.0 |
| condition | 2 | 3 | 66.6 |
| subroutine | 4 | 4 | 100.0 |
| pod | 0 | 1 | 0.0 |
| total | 20 | 22 | 90.9 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Acme::PriPara::MainMembers::HojoSophy; | ||||||
| 2 | 3 | 3 | 1127 | use Mouse; | |||
| 3 | 5 | ||||||
| 3 | 16 | ||||||
| 3 | extends 'Acme::PriPara::MainMembers'; | ||||||
| 4 | 3 | 3 | 764 | use utf8; | |||
| 3 | 4 | ||||||
| 3 | 16 | ||||||
| 5 | |||||||
| 6 | 3 | 3 | 58 | no Mouse; | |||
| 3 | 3 | ||||||
| 3 | 15 | ||||||
| 7 | |||||||
| 8 | sub pripara_change { #override | ||||||
| 9 | 2 | 2 | 0 | 5 | my ($self, $option) = @_; | ||
| 10 | 2 | 100 | 66 | 11 | return unless (defined $option && $option eq 'Red Flash'); | ||
| 11 | 1 | 3 | $self->{has_pripara_changed} = 1; | ||||
| 12 | } | ||||||
| 13 | |||||||
| 14 | 1; | ||||||
| 15 | |||||||
| 16 | __DATA__ |