File Coverage

blib/lib/Enbld/Target/Attribute/WebSite.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::WebSite;
2              
3 2     2   9695 use strict;
  2         5  
  2         67  
4 2     2   11 use warnings;
  2         4  
  2         53  
5              
6 2     2   10 use Carp;
  2         4  
  2         140  
7              
8 2     2   862 use parent qw/Enbld::Target::AttributeExtension::URL/;
  2         280  
  2         12  
9              
10             sub initialize {
11 54     54 0 135 my ( $self, $param ) = @_;
12              
13 54 100       151 if ( $param ) {
14 52         294 $self->SUPER::initialize( $param );
15 52         173 return $self;
16             }
17              
18 2         10 require Enbld::Exception;
19 2         10 croak( Enbld::Exception->new( "Attribute 'WebSite' isn't defined" ));
20             }
21              
22             1;