| blib/lib/stat.pl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 0 | 1 | 0.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 0 | 1 | 0.0 |
| pod | n/a | ||
| total | 0 | 2 | 0.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | ;# Usage: | ||||||
| 2 | ;# require 'stat.pl'; | ||||||
| 3 | ;# @ary = stat(foo); | ||||||
| 4 | ;# $st_dev = @ary[$ST_DEV]; | ||||||
| 5 | ;# | ||||||
| 6 | $ST_DEV = 0; | ||||||
| 7 | $ST_INO = 1; | ||||||
| 8 | $ST_MODE = 2; | ||||||
| 9 | $ST_NLINK = 3; | ||||||
| 10 | $ST_UID = 4; | ||||||
| 11 | $ST_GID = 5; | ||||||
| 12 | $ST_RDEV = 6; | ||||||
| 13 | $ST_SIZE = 7; | ||||||
| 14 | $ST_ATIME = 8; | ||||||
| 15 | $ST_MTIME = 9; | ||||||
| 16 | $ST_CTIME = 10; | ||||||
| 17 | $ST_BLKSIZE = 11; | ||||||
| 18 | $ST_BLOCKS = 12; | ||||||
| 19 | |||||||
| 20 | ;# Usage: | ||||||
| 21 | ;# require 'stat.pl'; | ||||||
| 22 | ;# Stat('foo'); # sets st_* as a side effect | ||||||
| 23 | ;# | ||||||
| 24 | sub Stat { | ||||||
| 25 | 0 | 0 | ($st_dev,$st_ino,$st_mode,$st_nlink,$st_uid,$st_gid,$st_rdev,$st_size, | ||||
| 26 | $st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks) = stat(shift(@_)); | ||||||
| 27 | } | ||||||
| 28 | |||||||
| 29 | 1; |