File Coverage

blib/lib/FFI/Build/File/Object.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 32 34 94.1


line stmt bran cond sub pod time code
1             package FFI::Build::File::Object;
2              
3 11     11   226072 use strict;
  11         27  
  11         338  
4 11     11   59 use warnings;
  11         24  
  11         252  
5 11     11   195 use 5.008004;
  11         47  
6 11     11   532 use parent qw( FFI::Build::File::Base );
  11         310  
  11         109  
7 11     11   730 use constant default_encoding => ':raw';
  11         31  
  11         628  
8 11     11   73 use Carp ();
  11         23  
  11         1384  
9              
10             # ABSTRACT: Class to track object file in FFI::Build
11             our $VERSION = '2.06_01'; # TRIAL VERSION
12              
13              
14             sub default_suffix
15             {
16 1     1 1 6 shift->platform->object_suffix;
17             }
18              
19             sub build_item
20             {
21 29     29 1 2649 my($self) = @_;
22 29 50       155 unless(-f $self->path)
23             {
24 0         0 Carp::croak "File not built"
25             }
26 29         289 return;
27             }
28              
29             1;
30              
31             __END__