File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Character.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 1 1 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1 1     1   17 use 5.008;
  1         3  
2 1     1   5 use strict;
  1         3  
  1         31  
3 1     1   6 use warnings;
  1         2  
  1         72  
4              
5             package Acme::Marvel::CinematicUniverse::Character;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 1         4 use Class::Tiny qw(
11             real_name
12             hero_name
13             intelligence
14             strength
15             speed
16             durability
17             energy_projection
18             fighting_ability
19 1     1   495 );
  1         1774  
20              
21             use overload (
22 1     1   107 q[bool] => sub { !!1 },
23 13     13   495 q[""] => sub { shift->real_name },
24 3     3   586 q[0+] => sub { shift->power },
25 1         14 fallback => !!1,
26 1     1   1196 );
  1         2  
27              
28             sub power {
29 3     3 1 7 my $self = shift;
30 3         5 my $sum;
31 3         62 $sum += $self->$_ for qw(
32             intelligence
33             strength
34             speed
35             durability
36             energy_projection
37             fighting_ability
38             );
39 3         267 return $sum;
40             }
41              
42             1;
43              
44             __END__