view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/20-optree-deparse/12-i-o/syscall
t/20-optree-deparse/12-i-o/sysread
t/20-optree-deparse/12-i-o/sysseek
t/20-optree-deparse/12-i-o/syswrite
t/20-optree-deparse/12-i-o/tell
t/20-optree-deparse/12-i-o/telldir
t/20-optree-deparse/12-i-o/truncate
t/20-optree-deparse/12-i-o/warn
t/20-optree-deparse/12-i-o/write
t/20-optree-deparse/13-files/chdir
t/20-optree-deparse/13-files/chmod
t/20-optree-deparse/13-files/chown
t/20-optree-deparse/13-files/chroot
t/20-optree-deparse/13-files/fcntl
t/20-optree-deparse/13-files/file-tests
t/20-optree-deparse/13-files/glob
t/20-optree-deparse/13-files/ioctl
t/20-optree-deparse/13-files/link
t/20-optree-deparse/13-files/lstat
t/20-optree-deparse/13-files/mkdir
t/20-optree-deparse/13-files/open

lib/Devel/Chitin/OpTree/LISTOP.pm  view on Meta::CPAN

        # 1st arg is a bareword filehandle
        $fh = $children->[1]->deparse(skip_quotes => 1);

    } else {
        $fh = $children->[1]->deparse;
    }

    "truncate(${fh}, " . $children->[2]->deparse . ')';
}

sub pp_chmod {
    my $self = shift;
    my $children = $self->children;
    my $mode = $self->_as_octal($children->[1]->deparse);
    my $target = $self->_maybe_targmy;
    "${target}chmod(${mode}, " . join(', ', map { $_->deparse } @$children[2 .. $#$children]) . ')';
}

sub pp_mkdir {
    my $self = shift;
    my $children = $self->children;
    my $target = $self->_maybe_targmy;
    my $dir = $children->[1]->deparse;  # 0th is pushmark
    if (@$children == 2) {
        if ($dir eq '$_') {
            "${target}mkdir()";

t/20-optree-deparse/13-files/chmod  view on Meta::CPAN

my $a = chmod(0755, '/some/file/name', '/other/file');
chmod(04322, 'foo')