view release on metacpan or  search on metacpan

lib/Data/Sah/Filter/perl/Path/expand_tilde.pm  view on Meta::CPAN

sub filter {
    my %args = @_;

    my $dt = $args{data_term};

    my $res = {};

    $res->{expr_filter} = join(
        "",
        "do { my \$tmp = $dt; \$tmp =~ s!\\A~([^/]*)!my \@pw = length(\$1) ? getpwnam(\$1) : getpwuid(\$>); \@pw ? \$pw[7]: \"~\$1\"!e; \$tmp }",
    );

    $res;
}

1;
# ABSTRACT:

__END__

lib/Data/Sah/Filter/perl/Path/expand_tilde_when_on_unix.pm  view on Meta::CPAN

sub filter {
    my %args = @_;

    my $dt = $args{data_term};

    my $res = {};

    $res->{expr_filter} = join(
        "",
        "do { my \$tmp = $dt; if (\$^O =~ qr/$Perl::osnames::RE_OS_IS_UNIX/) { \$tmp =~ s!\\A~([^/]*)!my \@pw = length(\$1) ? getpwnam(\$1) : getpwuid(\$>); \@pw ? \$pw[7]: \"~\$1\"!e; } \$tmp }",
    );

    $res;
}

1;
# ABSTRACT:

__END__