view release on metacpan or  search on metacpan

lib/TPath/Forester/File/Node.pm  view on Meta::CPAN

);


has user => ( is => 'ro', isa => 'Str', lazy => 1, builder => '_user' );

# memoized uid -> user converter
sub _user {
    my $self = shift;
    state %map;
    my $uid = $self->uid;
    my $user = $map{$uid} //= getpwuid($uid);
    return $user;
}


has group => ( is => 'ro', isa => 'Str', lazy => 1, builder => '_group' );

# memoized gid -> group converter
sub _group {
    my $self = shift;
    state %map;

t/basic.t  view on Meta::CPAN

}

@files = tff->path( '//*[@oid = ' . $< . ']' )->select($a);
is join( '', sort map { $_->name } @files ), 'abcdefgh', '@oid works';

my $gid = ( split / /, $( )[0];
@files = tff->path( '//*[@gid = ' . $gid . ']' )->select($a);
is join( '', sort map { $_->name } @files ), 'abcdefgh', '@gid works';

@files =
  tff->path( '//*[@user = "' . getpwuid($<) . '"]' )->select($a);
is join( '', sort map { $_->name } @files ), 'abcdefgh', '@user works';

my $group = getgrgid $gid;
@files = tff->path( '//*[@group = "' . $group . '"]' )->select($a);
is join( '', sort map { $_->name } @files ), 'abcdefgh', '@group works';

@files = tff->path('//*[@oid = @me]')->select($a);
is join( '', sort map { $_->name } @files ), 'abcdefgh', '@me works';

@files = tff->path('//*[@name =~ "[aeiou]"]')->select($a);