blib/lib/Acme/PrettyCure/Girl/Role/Futari.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 | package Acme::PrettyCure::Girl::Role::Futari; | ||||||
2 | 5 | 5 | 4451 | use utf8; | |||
5 | 12 | ||||||
5 | 43 | ||||||
3 | 5 | 5 | 146 | use Moo::Role; | |||
5 | 10 | ||||||
5 | 36 | ||||||
4 | |||||||
5 | around 'transform' => sub { | ||||||
6 | my $transform = shift; | ||||||
7 | my ($self, $buddy) = @_; | ||||||
8 | |||||||
9 | $self->$transform; | ||||||
10 | |||||||
11 | unless ($buddy->is_precure) { | ||||||
12 | $buddy->is_precure(1); | ||||||
13 | } | ||||||
14 | }; | ||||||
15 | |||||||
16 | |||||||
17 | 1; | ||||||
18 |