File Coverage

blib/lib/Algorithm/Easing/Mediator.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 4 0.0
total 25 32 78.1


line stmt bran cond sub pod time code
1             package Algorithm::Easing::Mediator;
2              
3 1     1   14147 use Moose;
  1         294853  
  1         4  
4              
5 1     1   4845 use Algorithm::Easing::Ease;
  1         1  
  1         29  
6 1     1   475 use Math::Trig qw(:pi);
  1         8919  
  1         119  
7              
8 1     1   5 use namespace::clean;
  1         1  
  1         7  
9              
10             has 'kind' => (
11             is => 'ro',
12             required => 1,
13             );
14              
15             sub ease_none {
16 0     0 0 0 my $self = shift;
17 0         0 return($self->kind->ease_none(shift,shift,shift,shift));
18             }
19              
20             sub ease_in {
21 3216     3216 0 402275 my $self = shift;
22 3216         96175 return($self->kind->ease_in(shift,shift,shift,shift));
23             }
24              
25             sub ease_out {
26 4020     4020 0 427925 my $self = shift;
27 4020         111068 return($self->kind->ease_out(shift,shift,shift,shift));
28             }
29              
30             sub ease_both {
31 3216     3216 0 309474 my $self = shift;
32 3216         91227 return($self->kind->ease_both(shift,shift,shift,shift));
33             }
34              
35             1;