File Coverage

blib/lib/Enbld/Target/Attribute/ArchiveName.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             package Enbld::Target::Attribute::ArchiveName;
2              
3 7     7   36612 use strict;
  7         16  
  7         240  
4 7     7   35 use warnings;
  7         15  
  7         190  
5              
6 7     7   34 use Carp;
  7         12  
  7         473  
7              
8 7     7   3344 use parent qw/Enbld::Target::AttributeExtension::Word/;
  7         1335  
  7         46  
9              
10             sub initialize {
11 58     58 0 318 my ( $self, $param ) = @_;
12              
13 58 100       308 if ( $param ) {
14 56         340 $self->SUPER::initialize( $param );
15 56         133 return $self;
16             }
17              
18 2         9 require Enbld::Exception;
19 2         9 croak( Enbld::Exception->new( "Attribute 'ArchiveName' isn't defined" ) );
20             }
21              
22             1;