File Coverage

blib/lib/Shipwright/Base.pm
Criterion Covered Total %
statement 9 9 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 13 14 92.8


line stmt bran cond sub pod time code
1             package Shipwright::Base;
2              
3 15     15   80 use warnings;
  15         16  
  15         427  
4 15     15   52 use strict;
  15         20  
  15         1024  
5              
6             our @ISA;
7             require Class::Accessor::Fast;
8              
9             BEGIN {
10 15     15   24 eval { require Class::XSAccessor::Compat };
  15         7279  
11 15 50       86750 push @ISA, $@ ? 'Class::Accessor::Fast' : 'Class::XSAccessor::Compat' ;
12             }
13              
14             =head1 NAME
15              
16             Shipwright::Base - Base
17              
18             1;
19              
20             __END__