view release on metacpan or  search on metacpan

lib/Text/Placeholder/Group/OS/Unix/File/Properties.pm  view on Meta::CPAN

sub THIS() { 0 }

sub ATR_PLACEHOLDERS() { 0 }
sub ATR_SUBJECT() { 1 }
sub ATR_STAT() { 2 }

my $PLACEHOLDERS = {
	'file_mode_octal' => sub { return($_[THIS][ATR_STAT][2])},
	'file_mode_rwx' => sub { return(as_rwx_string($_[THIS][ATR_STAT][2]))},
	'file_owner_id' => sub { return($_[THIS][ATR_STAT][4])},
	'file_owner_name' => sub { return((getpwuid($_[THIS][ATR_STAT][4]))[0])},
	'file_group_id' => sub { return($_[THIS][ATR_STAT][5])},
	'file_group_name' => sub { return((getgrgid($_[THIS][ATR_STAT][5]))[0])},
	'file_size' => sub { return($_[THIS][ATR_STAT][7])},
	'file_timestamp_creation' => sub { return(localtime($_[THIS][ATR_STAT][8]))},
	'file_timestamp_modification' => sub { return(localtime($_[THIS][ATR_STAT][9]))},
	'file_timestamp_status' => sub { return(localtime($_[THIS][ATR_STAT][10]))}
};

sub _init {
	my ($this) = @_;