view release on metacpan or  search on metacpan

lib/Directory/Deploy/Maker.pm  view on Meta::CPAN

        $file_handle->print( $$content );
    }
    elsif ( ! ref $content ) { # && $content =~ m/\n/ ) {
        $file_handle->print( $content );
    }
    else {
        croak "Don't know how to make $content";
    }

    my $mode;
    chmod $mode, "$file" or carp "Unable to set mode ($mode) on file ($file)" if $mode = $entry->mode;
}

sub _make_dir {
    my $self = shift;
    my $entry = shift;

    my $dir = $self->deploy->dir( $entry->path );

    $dir->mkpath;

    my $mode;
    chmod $mode, "$dir" or carp "Unable to set mode ($mode) on dir ($dir)" if $mode = $entry->mode;
}

1;