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

GSAR / libwin32-0.05 / File / File.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
—
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

              
package Win32::File;
#
#File.pm
#Written by Douglas_Lankshear@ActiveWare.com
#
#subsequent hacks:
#  Gurusamy Sarathy
#
$VERSION = '0.02';
require Exporter;
require DynaLoader;
@ISA= qw( Exporter DynaLoader );
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
                ARCHIVE
                COMPRESSED
                DIRECTORY
                HIDDEN
                NORMAL
                READONLY
                SYSTEM
        );
=head1 NAME
Win32::File - manage file attributes in perl
=head1 SYNOPSIS
        use Win32::File;
=head1 DESCRIPTION
This module offers the retrieval and setting of file attributes.
=head1 FUNCTIONS
=head2 NOTE:
all of the functions return FALSE (0) if they fail, unless otherwise noted.
=over 10
=item GetAttributes(filename, returnedAttirbutes)
        Gets the attributes of a file or directory
=item SetAttributes(filename, newAttirbutes)
        Sets the attributes of a file or directory
=back
=cut
sub AUTOLOAD 
{
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.  If a constant is not found then control is passed
    # to the AUTOLOAD in AutoLoader.
    my($constname);
    ($constname = $AUTOLOAD) =~ s/.*:://;
    #reset $! to zero to reset any current errors.
    $!=0;
    my $val = constant($constant);
    if($! != 0)
        {
                if($! =~ /Invalid/)
                {
                        $AutoLoader::AUTOLOAD = $AUTOLOAD;
                        goto &AutoLoader::AUTOLOAD;
                }
                else 
                {
                        ($pack,$file,$line) = caller;
                        die "Your vendor has not defined Win32::File macro $constname, used in $file at line $line.";
                }
    }
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}
bootstrap Win32::File;
1;
__END__