File Coverage

blib/lib/Win32/Mock/Win32/File.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	0	2	0.0
total	29	32	90.6

package # hide from PAUSE
        Win32::File;
use strict;
use warnings;
use Exporter ();

use constant {
    READONLY    => 0x00000001,  # FILE_ATTRIBUTE_READONLY
    HIDDEN      => 0x00000002,  # FILE_ATTRIBUTE_HIDDEN
   #LABEL       => 0x00000008,  # FILE_ATTRIBUTE_LABEL  /* Not in Windows API */
    SYSTEM      => 0x00000004,  # FILE_ATTRIBUTE_SYSTEM
    DIRECTORY   => 0x00000010,  # FILE_ATTRIBUTE_DIRECTORY
    ARCHIVE     => 0x00000020,  # FILE_ATTRIBUTE_ARCHIVE
    NORMAL      => 0x00000080,  # FILE_ATTRIBUTE_NORMAL
    TEMPORARY   => 0x00000100,  # FILE_ATTRIBUTE_TEMPORARY
    COMPRESSED  => 0x00000800,  # FILE_ATTRIBUTE_COMPRESSED
   #xxxxxxxxxx  => 0x00000200,  # FILE_ATTRIBUTE_ATOMIC_WRITE
   #xxxxxxxxxx  => 0x00000400,  # FILE_ATTRIBUTE_XACTION_WRITE
    OFFLINE     => 0x00001000,  # FILE_ATTRIBUTE_OFFLINE
};

{
    no strict;
    $VERSION = '0.01';
    @ISA     = qw(Exporter);
    @EXPORT  = qw(
        ARCHIVE COMPRESSED DIRECTORY HIDDEN LABEL
        NORMAL  OFFLINE    READONLY  SYSTEM TEMPORARY
    );
    @EXPORT_OK = qw(
        GetAttributes  SetAttributes
    );
}

my %file_attrs = ();

sub GetAttributes {
    my ($file, $attr) = @_;
    $_[1] = $file_attrs{$file} ||= NORMAL;
    return 1
}

sub SetAttributes {
    my ($file, $attr) = @_;
    $file_attrs{$file} = $attr;
    return 1
}


1

__END__