line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Copyright (c) 2014, cPanel, Inc. |
2
|
|
|
|
|
|
|
# All rights reserved. |
3
|
|
|
|
|
|
|
# http://cpanel.net/ |
4
|
|
|
|
|
|
|
# |
5
|
|
|
|
|
|
|
# This is free software; you can redistribute it and/or modify it under the same |
6
|
|
|
|
|
|
|
# terms as Perl itself. See the LICENSE file for further details. |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package Filesys::POSIX::VFS::Inode; |
9
|
|
|
|
|
|
|
|
10
|
24
|
|
|
24
|
|
91
|
use strict; |
|
24
|
|
|
|
|
29
|
|
|
24
|
|
|
|
|
700
|
|
11
|
24
|
|
|
24
|
|
112
|
use warnings; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
1646
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub new { |
14
|
48
|
|
|
48
|
0
|
88
|
my ( $class, $mountpoint, $root ) = @_; |
15
|
|
|
|
|
|
|
|
16
|
48
|
|
|
|
|
479
|
return bless { %$root, 'parent' => $mountpoint->{'parent'} }, ref $root; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |