File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Character/Instance/Bruce_Banner.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 1 3 33.3
subroutine 6 6 100.0
pod 0 2 0.0
total 21 25 84.0


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