File Coverage

blib/lib/Sys/Export/ISO9660/File.pm
Criterion Covered Total %
statement 32 32 100.0
branch 4 4 100.0
condition 1 2 50.0
subroutine 9 9 100.0
pod 4 4 100.0
total 50 51 98.0


line stmt bran cond sub pod time code
1             package Sys::Export::ISO9660::File;
2              
3             our $VERSION = '0.005'; # VERSION
4             # ABSTRACT: Represents a file in ISO9660, including packed encodings of directories
5              
6 2     2   21 use v5.26;
  2         6  
7 2     2   6 use warnings;
  2         3  
  2         112  
8 2     2   9 use experimental qw( signatures );
  2         3  
  2         13  
9 2     2   254 use parent 'Sys::Export::Extent';
  2         3  
  2         8  
10 2     2   82 use Sys::Export::ISO9660;
  2         4  
  2         360  
11             our @CARP_NOT= qw( Sys::Export::ISO9660 );
12              
13              
14 95     95 1 91 sub block_size($self) { 2048 }
  95         99  
  95         71  
  95         223  
15 26 100   26 1 29 sub mtime($self, @v) { @v? ($self->{mtime}= $v[0]) : $self->{mtime} }
  26         25  
  26         27  
  26         20  
  26         106  
16 41 100   41 1 41 sub flags($self, @v) { @v? ($self->{flags}= $v[0]) : $self->{flags} }
  41         44  
  41         38  
  41         38  
  41         271  
17 7   50 7 1 9 sub is_dir($self) { ($self->{flags}||0) & Sys::Export::ISO9660::FLAG_DIRECTORY() }
  7         6  
  7         7  
  7         34  
18              
19             1;
20              
21             __END__