0
 ?÷     OLERATE_ENOENT = 1;

    return &chmod( $mode, $target, @too_many );    ## no critic qw(Ampersand)
}

1;

} # --- END Cpanel/Autodie/CORE/chmod.pm


{ # --- BEGIN Cpanel/Autodie/CORE/chmod_if_exists.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';

# use Cpanel::Autodie::CORE::chmod ();    # PPI NO PARSE # perlpkg line 211


1;

} # --- END Cpanel/Autodie/CORE/chmod_if_exists.pm


{ # --- BEGIN Cpanel/Autodie/CORE/close.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';


sub close {
    my ( $fh, $filename ) = @_;

    local ( $!, $^E );
    return ( $fh ? CORE::close($fh) : CORE::close() ) || do {
        my $err = $!;

        local $@;
        require Cpanel::Exception;

        die Cpanel::Exception::create( 'IO::CloseError', [ error => $err, filename => $filename ] );
    };
}

1;

} # --- END Cpanel/Autodie/CORE/close.pm


{ # --- BEGIN Cpanel/Autodie/CORE/fcntl.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';


sub fcntl {
    my ( $fh, $func, $scalar ) = @_;

    local ( $!, $^E );
    return fcntl( $fh, $func, $scalar ) || do {
        my $err = $!;

        local $@;
        require Cpanel::Exception;

        die Cpanel::Exception::create( 'IO::FcntlError', [ error => $err ] );
    };
}

1;

} # --- END Cpanel/Autodie/CORE/fcntl.pm


{ # --- BEGIN Cpanel/Autodie/CORE/link.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';


sub link {
    my ( $old, $new ) = @_;

    local ( $!, $^E );
    return CORE::link( $old, $new ) || do {
        my $err = $!;

        local $@;
        require Cpanel::Exception;

        die Cpanel::Exception::create( 'IO::LinkError', [ error => $err, oldpath => $old, newpath => $new ] );
    };
}

1;

} # --- END Cpanel/Autodie/CORE/link.pm


{ # --- BEGIN Cpanel/Autodie/CORE/open.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';


sub open {    ## no critic(RequireArgUnpacking)
    my ( $mode, $expr, @list ) = ( @_[ 1 .. $#_ ] );

    die "Avoid bareword file handles." if !ref $_[0] && length $_[0];
    die "Avoid one-argument open()."   if !$mode;

    local ( $!, $^E );
    if ( !defined $expr ) {
        if ( $mode eq '|-' or $mode eq '-|' ) {

            my $open = CORE::open( $_[0], $mode );
            if ( !defined $open ) {
                my $err = $!;

                local $@;
                require Cpanel::Exception;

                die Cpanel::Exception::create( 'IO::ForkError', [ error => $err ] );
            }

            return $open;
        }

        my $file = __FILE__;
        die "Avoid most forms of two-argument open(). (See $file and its tests for allowable forms.)";
    }

    return CORE::open( $_[0], $mode, $expr, @list ) || do {
        my $err = $!;

        local $@;
        require Cpanel::Exception;

        if ( $mode eq '|-' || $mode eq '-|' ) {
            my $cmd = $expr;

            if ( !@list ) {
                ($cmd) = ( $cmd =~ m<\A(\S+)> );
            }

            die Cpanel::Exception::create( 'IO::ExecError', [ path => $cmd, error => $err ] );
        }

        if ( 'SCALAR' eq ref $expr ) {
            die Cpanel::Exception->create( 'The system failed to open a file handle to a scalar reference because of an error: [_1]', [$err] );
        }

        require Cpanel::FileUtils::Attr;
        my $attributes = Cpanel::FileUtils::Attr::get_file_or_fh_attributes($expr);

        die Cpanel::Exception::create( 'IO::FileOpenError', [ mode => $mode, path => $expr, error => $err, immutable => $attributes->{'IMMUTABLE'}, 'append_only' => $attributes->{'APPEND_ONLY'} ] );
    };
}

1;

} # --- END Cpanel/Autodie/CORE/open.pm


{ # --- BEGIN Cpanel/Autodie/CORE/print.pm
package Cpanel::Autodie;


use strict;
use warnings;
no warnings 'once';


sub print {    ## no critic(RequireArgUnpacking)
    my $args_ar = \@_;

    local ( $!, $^E );

    my $ret;

    if ( UNIVERSAL::isa( $args_ar->[0], 'GLOB' ) ) {
        $ret = CORE::print { shift @$args_ar } ( @$args_ar ? @$args_ar : $_ );
    }
    else {