File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Character/Instance/Clint_Barton.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   1147 use 5.008;
  1         3  
2 1     1   4 use strict;
  1         2  
  1         17  
3 1     1   4 use warnings;
  1         2  
  1         58  
4              
5             package Acme::Marvel::CinematicUniverse::Character::Instance::Clint_Barton;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 1     1   358 use Acme::Marvel::CinematicUniverse::Character;
  1         3  
  1         100  
11              
12             my $instance;
13             sub get {
14 1   33 1 0 5 $instance ||= 'Acme::Marvel::CinematicUniverse::Character'->new(
15             real_name => 'Clint Barton',
16             hero_name => 'Hawkeye',
17             intelligence => 3,
18             strength => 2,
19             speed => 2,
20             durability => 2,
21             energy_projection => 1,
22             fighting_ability => 6,
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;