File Coverage

blib/lib/Sys/Export/ISO9660/Directory.pm

Criterion	Covered	Total	%
statement	30	36	83.3
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	5	5	100.0
total	44	52	84.6

package Sys::Export::ISO9660::Directory;

our $VERSION = '0.006'; # VERSION
# ABSTRACT: Represents a case-folded directory in ISO9660

use v5.26;
use warnings;
use experimental qw( signatures );
use parent 'Sys::Export::VFAT::Directory';


sub new($class, %attrs) {
   my $joliet_file= delete $attrs{joliet_file};
   my $self= $class->next::method(%attrs);
   $self->{joliet_file}= $joliet_file if defined $joliet_file;
   $self;
}

sub is_valid_name($self, $name) {
   Sys::Export::ISO9660::is_valid_joliet_name($name)
}
sub is_valid_shortname($self, $name) {
   Sys::Export::ISO9660::is_valid_shortname($name)
}
sub remove_invalid_shortname_chars($self, $name, $repl) {
   Sys::Export::ISO9660::remove_invalid_shortname_chars($name, $repl)
}


sub joliet_file { $_[0]{joliet_file} }

require Sys::Export::ISO9660;
1;

__END__