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

package Sys::Export::ISO9660::File;

our $VERSION = '0.005_002'; # TRIAL VERSION
# ABSTRACT: Represents a file in ISO9660, including packed encodings of directories

use v5.26;
use warnings;
use experimental qw( signatures );
use parent 'Sys::Export::Extent';
use Sys::Export::ISO9660;
our @CARP_NOT= qw( Sys::Export::ISO9660 );


sub block_size($self) { 2048 }
sub mtime($self, @v) { @v? ($self->{mtime}= $v[0]) : $self->{mtime} }
sub flags($self, @v) { @v? ($self->{flags}= $v[0]) : $self->{flags} }
sub is_dir($self) { ($self->{flags}||0) & Sys::Export::ISO9660::FLAG_DIRECTORY() }

1;

__END__