view release on metacpan or  search on metacpan

lib/Catmandu/Fix/file_stat.pm  view on Meta::CPAN

with 'Catmandu::Fix::SimpleGetValue';

sub emit_value {
    my ($self, $var, $fixer) = @_;

    my $temp_var = $fixer->generate_var();

    my $perl = <<EOF;
    if (is_string(${var})) {

        my ${temp_var} = [stat(${var})];

        if( scalar(\@{${temp_var}}) ){

            ${var} = {
                dev => ${temp_var}->[0],
                ino => ${temp_var}->[1],
                mode => ${temp_var}->[2],
                nlink => ${temp_var}->[3],
                uid => ${temp_var}->[4],
                gid => ${temp_var}->[5],

lib/Catmandu/Fix/file_stat.pm  view on Meta::CPAN

=head1 NAME

Catmandu::Fix::file_stat - get file status information

=head1 SYNOPSIS

add_field('path','/home/njfranck/test.txt')

#'path' is now a hash containing keys like mode, uid, gid, size, atime ..

file_stat('path')

=head1 AUTHOR

Nicolas Franck, C<< <nicolas.franck at ugent.be> >>

=head1 SEE ALSO

L<Catmandu::Fix>

L<stat|http://perldoc.perl.org/functions/stat.html>