File Coverage

blib/lib/File/Stat.pm

Criterion	Covered	Total	%
statement	12	35	34.2
branch	0	6	0.0
condition			n/a
subroutine	4	25	16.0
pod	0	21	0.0
total	16	87	18.3

package File::Stat;
use 5.006;
use strict;
use warnings;
use base qw(Exporter);
our $VERSION		= '0.01';
our @EXPORT			= qw();
our %EXPORT_TAGS	= (
	'stat'		=> [qw(&stat)],
	'lstat'		=> [qw(&lstat)],
	'override'	=> [qw(&lstat &stat)],
	'global'	=> [qw(
		$st_dev $st_ino $st_inode $st_mode $st_nlink $st_uid $st_gid
		$st_rdev $st_size $st_atime $st_mtime $st_ctime $st_blksize $st_blocks
	)],
);
$EXPORT_TAGS{all}	= [ map {@{$EXPORT_TAGS{$_}}} keys %EXPORT_TAGS ];
our @EXPORT_OK		= @{$EXPORT_TAGS{all}};

our($st_dev,$st_ino,$st_inode,$st_mode,$st_nlink,$st_uid,$st_gid,
$st_rdev,$st_size,$st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks);
# Preloaded methods go here.
sub class	{ref$_[0]||$_[0]}
sub new		{bless [stat($_[1])],$_[0]->class;}
sub stat_	{CORE::stat(shift)}
sub lstat_	{CORE::lstat(shift)}
sub set		{
	return (
		$st_dev,$st_ino,$st_inode,$st_mode,$st_nlink,$st_uid,$st_gid,
		$st_rdev,$st_size,$st_atime,$st_mtime,$st_ctime,$st_blksize,$st_blocks
	) = @_;
}
sub stat {
	return new File::Stat(shift)	unless(wantarray);
	return set( stat_(shift) );
}
sub lstat {
	return new File::Stat(shift)	unless(wantarray);
	return set( lstat_(shift) );
}
sub dev		:method	{shift()->[ 0]}
sub ino		:method	{shift()->[ 1]}
sub inode	:method	{shift()->[ 1]}
sub mode	:method	{shift()->[ 2]}
sub nlink	:method	{shift()->[ 3]}
sub uid		:method	{shift()->[ 4]}
sub gid		:method	{shift()->[ 5]}
sub rdev	:method	{shift()->[ 6]}
sub size	:method	{shift()->[ 7]}
sub atime	:method	{shift()->[ 8]}
sub mtime	:method	{shift()->[ 9]}
sub ctime	:method	{shift()->[10]}
sub blksize	:method	{shift()->[11]}
sub blocks	:method	{shift()->[12]}
1;
__END__