File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Character/Instance/Bruce_Banner.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1 1     1   633 use 5.008;
  1         3  
2 1     1   6 use strict;
  1         3  
  1         21  
3 1     1   5 use warnings;
  1         2  
  1         68  
4              
5             package Acme::Marvel::CinematicUniverse::Character::Instance::Bruce_Banner;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.001';
9              
10 1     1   9 use Acme::Marvel::CinematicUniverse::Character;
  1         2  
  1         89  
11              
12             my $bruce = Acme::Marvel::CinematicUniverse::Character->new(
13             real_name => 'Bruce Banner',
14             hero_name => 'The Hulk',
15             intelligence => 6,
16             strength => 7,
17             speed => 3,
18             durability => 7,
19             energy_projection => 5,
20             fighting_ability => 4,
21             );
22              
23             sub init {
24 1     1 0 3713 my ( $me, $collector ) = ( shift, @_ );
25 1         7 $collector->load_character( $bruce );
26             }
27              
28             1;
29