Aion-Fs
view release on metacpan or search on metacpan
requirement to continue to provide support service, warranty, or updates
for a work that has been modified or installed by the recipient, or for
the User Product in which it has been modified or installed. Access to a
network may be denied when the modification itself materially and
adversely affects the operation of the network or violates the rules and
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
License by making exceptions from one or more of its conditions.
Additional permissions that are applicable to the entire Program shall
be treated as though they were included in this License, to the extent
that they are valid under applicable law. If additional permissions
apply only to part of the Program, that part may be used separately
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
};
path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION" # --> $path
$path = {
path => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7',
dir => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]',
node => "NODE",
accountname => "account",
password => "password",
volume => 'DISK$USER:',
disk => 'DISK',
user => 'USER',
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION;7",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
version => 7,
};
path 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7' # --> $path
path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"} # => DISK:FILENAME.EXTENSION
path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAME.pm", ext => "EXTENSION"} # \> $USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION
}
{
local $^O = "VOS";
my $path = {
path => "%sysname#module1>SubDir>File.txt",
lib/Aion/Fs.md view on Meta::CPAN
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
};
path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION" # --> $path
$path = {
path => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7',
dir => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]',
node => "NODE",
accountname => "account",
password => "password",
volume => 'DISK$USER:',
disk => 'DISK',
user => 'USER',
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION;7",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
version => 7,
};
path 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7' # --> $path
path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"} # => DISK:FILENAME.EXTENSION
path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAME.pm", ext => "EXTENSION"} # \> $USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION
}
{
local $^O = "VOS";
my $path = {
path => "%sysname#module1>SubDir>File.txt",
lib/Aion/Fs.pm view on Meta::CPAN
},
},
{
name => VMS,
symdir => '.',
symext => '.',
regexp => qr!^
(?<dir>
(
(?<node> [^:\[\]]* )
( \[" (?<accountname> [^\s:\[\]]+ ) \s+ (?<password> [^\s:\[\]]+ ) "\] )?
:: )?
(?<volume>
(?<disk> [^\$:\[\]]* )
( \$ (?<user> [^\$:\[\]]* ) )?
: )?
( \[ (?<folder> [^\[\]]* ) \] )?
)
(?<card>
(?<file>
(?<name> \.? [^.;\[\]]*? )
( \. (?<ext> [^;\[\]]* ) )?
)
( ; (?<version> [^;\[\]]* ) )?
)
\z!xsn,
join => sub {
_join [qw/path dir volume file/],
node => "%s",
[qw/accountname password/] => '["%s %s"]',
[qw/node accountname password/] => "::",
disk => "%s",
user => "\$%s",
[qw/disk user/] => ':',
folder => "[%s]",
name => "%s",
ext => ".%s",
version => ";%s",
},
},
{
lib/Aion/Fs.pm view on Meta::CPAN
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
};
path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION" # --> $path
$path = {
path => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7',
dir => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]',
node => "NODE",
accountname => "account",
password => "password",
volume => 'DISK$USER:',
disk => 'DISK',
user => 'USER',
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION;7",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
version => 7,
};
path 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7' # --> $path
path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"} # => DISK:FILENAME.EXTENSION
path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAME.pm", ext => "EXTENSION"} # \> $USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION
}
{
local $^O = "VOS";
my $path = {
path => "%sysname#module1>SubDir>File.txt",
t/aion/fs.t view on Meta::CPAN
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
};
::is_deeply scalar do {path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION"}, scalar do {$path}, ' path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION" # --> $path';
$path = {
path => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7',
dir => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]',
node => "NODE",
accountname => "account",
password => "password",
volume => 'DISK$USER:',
disk => 'DISK',
user => 'USER',
folder => "DIRECTORY.SUBDIRECTORY",
card => "FILENAME.EXTENSION;7",
file => "FILENAME.EXTENSION",
name => "FILENAME",
ext => "EXTENSION",
version => 7,
};
::is_deeply scalar do {path 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7'}, scalar do {$path}, ' path \'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7\' # --> $path';
::is scalar do {path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"}}, "DISK:FILENAME.EXTENSION", ' path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"} # => DISK:FILENAME.EXTENSION';
::is scalar do {path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAME.pm", ext => "EXTENSION"}}, '$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION', ' path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAM...
}
{
local $^O = "VOS";
my $path = {
path => "%sysname#module1>SubDir>File.txt",
( run in 0.771 second using v1.01-cache-2.11-cpan-49f99fa48dc )