Lines Matching full:use
3 use strict;
4 use warnings;
6 use vars qw[$VERSION @ISA @EXPORT];
19 use constant FILE => 0;
20 use constant HARDLINK => 1;
21 use constant SYMLINK => 2;
22 use constant CHARDEV => 3;
23 use constant BLOCKDEV => 4;
24 use constant DIR => 5;
25 use constant FIFO => 6;
26 use constant SOCKET => 8;
27 use constant UNKNOWN => 9;
28 use constant LONGLINK => 'L';
29 use constant LABEL => 'V';
31 use constant BUFFER => 4096;
32 use constant HEAD => 512;
33 use constant BLOCK => 512;
35 use constant COMPRESS_GZIP => 9;
36 use constant COMPRESS_BZIP => 'bzip2';
37 use constant COMPRESS_XZ => 'xz';
39 use constant BLOCK_SIZE => sub { my $n = int($_[0]/BLOCK); $n++ if $_[0] % BLOCK; $n * BLOCK };
40 use constant TAR_PAD => sub { my $x = shift || return; return "\0" x (BLOCK - ($x % BLOCK) ) };
41 use constant TAR_END => "\0" x BLOCK;
43 use constant READ_ONLY => sub { shift() ? 'rb' : 'r' };
44 use constant WRITE_ONLY => sub { $_[0] ? 'wb' . shift : 'w' };
45 use constant MODE_READ => sub { $_[0] =~ /^r/ ? 1 : 0 };
50 use constant UNAME => sub { $getpwuid || scalar getpwuid( shift() ) || '' };
51 use constant GNAME => sub { $getgrgid || scalar getgrgid( shift() ) || '' };
52 use constant UID => $>;
53 use constant GID => (split ' ', $) )[0];
55 use constant MODE => do { 0666 & (0777 & ~umask) };
56 use constant STRIP_MODE => sub { shift() & 0777 };
57 use constant CHECK_SUM => " ";
59 use constant UNPACK => 'a100 a8 a8 a8 a12 a12 a8 a1 a100 A6 a2 a32 a32 a8 a8 a155 x12'; # cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb)
60 use constant PACK => 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12';
61 use constant NAME_LENGTH => 100;
62 use constant PREFIX_LENGTH => 155;
64 use constant TIME_OFFSET => ($^O eq "MacOS") ? Time::Local::timelocal(0,0,0,1,0,1970) : 0;
65 use constant MAGIC => "ustar";
66 use constant TAR_VERSION => "00";
67 use constant LONGLINK_NAME => '././@LongLink';
68 use constant PAX_HEADER => 'pax_global_header';
71 use constant ZLIB => do { !$ENV{'PERL5_AT_NO_ZLIB'} and
77 use constant BZIP => do { !$ENV{'PERL5_AT_NO_BZIP'} and
84 use constant XZ => do { !$ENV{'PERL5_AT_NO_XZ'} and
90 use constant GZIP_MAGIC_NUM => qr/^(?:\037\213|\037\235)/;
93 use constant BZIP_MAGIC_NUM => qr/^\x42\x5A\x68[\x30-\x39]/;
95 use constant XZ_MAGIC_NUM => qr/^\xFD\x37\x7A\x58\x5A\x00/;
97 use constant CAN_CHOWN => sub { ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32") };
98 use constant CAN_READLINK => ($^O ne 'MSWin32' and $^O !~ /RISC(?:[ _])?OS/i and $^O ne 'VMS');
99 use constant ON_UNIX => ($^O ne 'MSWin32' and $^O ne 'MacOS' and $^O ne 'VMS');
100 use constant ON_VMS => $^O eq 'VMS';
105 return unless defined $pkg; # some joker might use '0' as a pkg...