<h2>Editing File: /lib64/perl5/vendor_perl/DBI/Gofer/Response.pm</h2><form method='post'><textarea name='content' class='file-edit'>package DBI::Gofer::Response;

#   $Id: Response.pm 11565 2008-07-22 20:17:33Z Tim $
#
#   Copyright (c) 2007, Tim Bunce, Ireland
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.

use strict;

use Carp;
use DBI qw(neat neat_list);

use base qw(DBI::Util::_accessor Exporter);

our $VERSION = &quot;0.011566&quot;;

use constant GOf_RESPONSE_EXECUTED =&gt; 0x0001;

our @EXPORT = qw(GOf_RESPONSE_EXECUTED);


__PACKAGE__-&gt;mk_accessors(qw(
    version
    rv
    err
    errstr
    state
    flags
    last_insert_id
    dbh_attributes
    sth_resultsets
    warnings
));
__PACKAGE__-&gt;mk_accessors_using(make_accessor_autoviv_hashref =&gt; qw(
    meta
));


sub new {
    my ($self, $args) = @_;
    $args-&gt;{version} ||= $VERSION;
    chomp $args-&gt;{errstr} if $args-&gt;{errstr};
    return $self-&gt;SUPER::new($args);
}


sub err_errstr_state {
    my $self = shift;
    return @{$self}{qw(err errstr state)};
}

sub executed_flag_set {
    my $flags = shift-&gt;flags
        or return 0;
    return $flags &amp; GOf_RESPONSE_EXECUTED;
}


sub add_err {
    my ($self, $err, $errstr, $state, $trace) = @_;

    # acts like the DBI's set_err method.
    # this code copied from DBI::PurePerl's set_err method.

    chomp $errstr if $errstr;
    $state ||= '';
    carp ref($self).&quot;-&gt;add_err($err, $errstr, $state)&quot;
        if $trace and defined($err) || $errstr;

    my ($r_err, $r_errstr, $r_state) = ($self-&gt;{err}, $self-&gt;{errstr}, $self-&gt;{state});

    if ($r_errstr) {
        $r_errstr .= sprintf &quot; [err was %s now %s]&quot;, $r_err, $err
                if $r_err &amp;&amp; $err &amp;&amp; $r_err ne $err;
        $r_errstr .= sprintf &quot; [state was %s now %s]&quot;, $r_state, $state
                if $r_state and $r_state ne &quot;S1000&quot; &amp;&amp; $state &amp;&amp; $r_state ne $state;
        $r_errstr .= &quot;\n$errstr&quot; if $r_errstr ne $errstr;
    }
    else {
        $r_errstr = $errstr;
    }

    # assign if higher priority: err &gt; &quot;0&quot; &gt; &quot;&quot; &gt; undef
    my $err_changed;
    if ($err                 # new error: so assign
        or !defined $r_err   # no existing warn/info: so assign
           # new warn (&quot;0&quot; len 1) &gt; info (&quot;&quot; len 0): so assign
        or defined $err &amp;&amp; length($err) &gt; length($r_err)
    ) {
        $r_err = $err;
        ++$err_changed;
    }

    $r_state = ($state eq &quot;00000&quot;) ? &quot;&quot; : $state
        if $state &amp;&amp; $err_changed;

    ($self-&gt;{err}, $self-&gt;{errstr}, $self-&gt;{state}) = ($r_err, $r_errstr, $r_state);

    return undef;
}


sub summary_as_text {
    my $self = shift;
    my ($context) = @_;

    my ($rv, $err, $errstr, $state) = ($self-&gt;{rv}, $self-&gt;{err}, $self-&gt;{errstr}, $self-&gt;{state});

    my @s = sprintf(&quot;\trv=%s&quot;, (ref $rv) ? &quot;[&quot;.neat_list($rv).&quot;]&quot; : neat($rv));
    $s[-1] .= sprintf(&quot;, err=%s, errstr=%s&quot;, $err, neat($errstr))
        if defined $err;
    $s[-1] .= sprintf(&quot;,  flags=0x%x&quot;, $self-&gt;{flags})
        if defined $self-&gt;{flags};

    push @s, &quot;last_insert_id=%s&quot;, $self-&gt;last_insert_id
        if defined $self-&gt;last_insert_id;

    if (my $dbh_attr = $self-&gt;dbh_attributes) {
        my @keys = sort keys %$dbh_attr;
        push @s, sprintf &quot;dbh= { %s }&quot;, join(&quot;, &quot;, map { &quot;$_=&gt;&quot;.neat($dbh_attr-&gt;{$_},100) } @keys)
            if @keys;
    }

    for my $rs (@{$self-&gt;sth_resultsets || []}) {
        my ($rowset, $err, $errstr, $state)
            = @{$rs}{qw(rowset err errstr state)};
        my $summary = &quot;rowset: &quot;;
        my $NUM_OF_FIELDS = $rs-&gt;{NUM_OF_FIELDS} || 0;
        my $rows = $rowset ? @$rowset : 0;
        if ($rowset || $NUM_OF_FIELDS &gt; 0) {
            $summary .= sprintf &quot;%d rows, %d columns&quot;, $rows, $NUM_OF_FIELDS;
        }
        $summary .= sprintf &quot;, err=%s, errstr=%s&quot;, $err, neat($errstr) if defined $err;
        if ($rows) {
            my $NAME = $rs-&gt;{NAME};
            # generate
            my @colinfo = map { &quot;$NAME-&gt;[$_]=&quot;.neat($rowset-&gt;[0][$_], 30) } 0..@{$NAME}-1;
            $summary .= sprintf &quot; [%s]&quot;, join &quot;, &quot;, @colinfo;
            $summary .= &quot;,...&quot; if $rows &gt; 1;
            # we can be a little more helpful for Sybase/MSSQL user
            $summary .= &quot; syb_result_type=$rs-&gt;{syb_result_type}&quot;
                if $rs-&gt;{syb_result_type} and $rs-&gt;{syb_result_type} != 4040;
        }
        push @s, $summary;
    }
    for my $w (@{$self-&gt;warnings || []}) {
        chomp $w;
        push @s, &quot;warning: $w&quot;;
    }
    if ($context &amp;&amp; %$context) {
        my @keys = sort keys %$context;
        push @s, join(&quot;, &quot;, map { &quot;$_=&gt;&quot;.$context-&gt;{$_} } @keys);
    }
    return join(&quot;\n\t&quot;, @s). &quot;\n&quot;;
}


sub outline_as_text { # one-line version of summary_as_text
    my $self = shift;
    my ($context) = @_;

    my ($rv, $err, $errstr, $state) = ($self-&gt;{rv}, $self-&gt;{err}, $self-&gt;{errstr}, $self-&gt;{state});

    my $s = sprintf(&quot;rv=%s&quot;, (ref $rv) ? &quot;[&quot;.neat_list($rv).&quot;]&quot; : neat($rv));
    $s .= sprintf(&quot;, err=%s %s&quot;, $err, neat($errstr))
        if defined $err;
    $s .= sprintf(&quot;, flags=0x%x&quot;, $self-&gt;{flags})
        if $self-&gt;{flags};

    if (my $sth_resultsets = $self-&gt;sth_resultsets) {
        $s .= sprintf(&quot;, %d resultsets &quot;, scalar @$sth_resultsets);

        my @rs;
        for my $rs (@{$self-&gt;sth_resultsets || []}) {
            my $summary = &quot;&quot;;
            my ($rowset, $err, $errstr)
                = @{$rs}{qw(rowset err errstr)};
            my $NUM_OF_FIELDS = $rs-&gt;{NUM_OF_FIELDS} || 0;
            my $rows = $rowset ? @$rowset : 0;
            if ($rowset || $NUM_OF_FIELDS &gt; 0) {
                $summary .= sprintf &quot;%dr x %dc&quot;, $rows, $NUM_OF_FIELDS;
            }
            $summary .= sprintf &quot;%serr %s %s&quot;, ($summary?&quot;, &quot;:&quot;&quot;), $err, neat($errstr)
                if defined $err;
            push @rs, $summary;
        }
        $s .= join &quot;; &quot;, map { &quot;[$_]&quot; } @rs;
    }

    return $s;
}


1;

=head1 NAME

DBI::Gofer::Response - Encapsulate a response from DBI::Gofer::Execute to DBD::Gofer

=head1 DESCRIPTION

This is an internal class.

=head1 AUTHOR

Tim Bunce, L&lt;http://www.tim.bunce.name&gt;

=head1 LICENCE AND COPYRIGHT

Copyright (c) 2007, Tim Bunce, Ireland. All rights reserved.

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L&lt;perlartistic&gt;.

=cut

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Flib64%2Fperl5%2Fvendor_perl%2FDBI%2FGofer'>Back to Directory</a>