The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
12345678910111213141516 package Filesys::POSIX::VFS::Inode;use strict;use warnings;sub new { my ( $class, $mountpoint, $root ) = @_; return bless { %$root, 'parent' => $mountpoint->{'parent'} }, ref $root;}1;
package
Filesys::POSIX::VFS::Inode;
use
strict;
warnings;
sub
new {
my
(
$class
,
$mountpoint
$root
) =
@_
;
return
bless
{
%$root
'parent'
=>
->{
}
},
ref
1;