The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
sub new {
my ($class) = @_;
my $fs = bless {}, $class;
$fs->{'root'} = Filesys::POSIX::Mem::Inode->new(
'mode' => $S_IFDIR | 0755,
'dev' => $fs
);
return $fs;
}
sub init {
my ( $self, %flags ) = @_;
$self->{'flags'} = \%flags;
return $self;
}
1;