File Coverage

blib/lib/Sys/Export/VFAT/File.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	3	4	75.0
condition			n/a
subroutine	17	17	100.0
pod	12	12	100.0
total	67	68	98.5

package Sys::Export::VFAT::File;

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

use v5.26;
use warnings;
use experimental qw( signatures );
use Sys::Export::VFAT;
use Carp;
our @CARP_NOT= qw( Sys::Export::VFAT );


sub new($class, %attrs) {
   my $self= bless {}, $class;
   for (qw( name size data flags btime atime mtime align device_offset cluster )) {
      if (defined (my $v= delete $attrs{$_})) {
         $self->{$_}= $v
      }
   }
   croak "Unknown attribute: ".join(', ', keys %attrs) if keys %attrs;
   $self;
}


sub name      { $_[0]{name} }
sub size      { $_[0]{size} }
sub data      { $_[0]{data} }
sub flags     { $_[0]{flags} }
sub mtime     { $_[0]{mtime} }
sub atime     { $_[0]{atime} }
sub btime     { $_[0]{btime} }
sub align     { $_[0]{align} }
sub device_offset { $_[0]{device_offset} }
sub cluster   { $_[0]{cluster} }
sub is_dir    { $_[0]{flags} & Sys::Export::VFAT::ATTR_DIRECTORY() }

# Avoiding dependency on namespace::clean
delete @{Sys::Export::VFAT::File::}{qw( carp confess croak )};
1;

__END__