File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Character/Instance/Tony_Stark.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   508 use 5.008;
  1         3  
2 1     1   5 use strict;
  1         2  
  1         16  
3 1     1   4 use warnings;
  1         2  
  1         45  
4              
5             package Acme::Marvel::CinematicUniverse::Character::Instance::Tony_Stark;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 1     1   5 use Acme::Marvel::CinematicUniverse::Character;
  1         2  
  1         104  
11              
12             my $instance;
13             sub get {
14 1   33 1 0 5 $instance ||= 'Acme::Marvel::CinematicUniverse::Character'->new(
15             real_name => 'Tony Stark',
16             hero_name => 'Iron Man',
17             intelligence => 6,
18             strength => 6,
19             speed => 5,
20             durability => 6,
21             energy_projection => 6,
22             fighting_ability => 4,
23             );
24             }
25              
26             sub init {
27 1     1 0 3 my ( $me, $collector ) = ( shift, @_ );
28 1         2 $collector->load_character( $me->get );
29             }
30              
31             1;