NAME

DBIx::BlackBox::Result - result of executed stored procedure.

SYNOPSIS

    my $rs = $dbbb->exec('ListCatalogs',
            root_id => $root_id,
            org_id => $org_id,
        );
    }

ATTRIBUTES

db_driver

Database driver object.

isa: DBIx::BlackBox::Driver.

sth

Statement handle for current result.

isa: DBI::st.

resultsets

    print "$_\n" for @{ $rs->resultsets };

Names of the resultsets classes.

isa: ArrayRef.

idx

    if ( $rs->idx == 1 ) {
        ...
    }

Index of the current resultset.

isa: Int.

METHODS

next_resultset

    do {
        ...
    } while ( $rs->next_resultset );

Returns true if database statement has more resultsets and it is a row result (SELECT query).

next_row

    while ( my $row = $rs->next_row ) {
        ...
    }

Tries to fetch next row and returns instance of an object of the current resultset (provided by "resultsets".

Returns undef if there are no rows.

procedure_result

Returns return value of executed stored procedure.

all

    my ( $catalogs, $data, $rv ) = $rs->all;

Helper method to get all rows of all resultsets at once.

AUTHOR

Alex J. G. Burzyński, <ajgb at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2010 Alex J. G. Burzyński.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

cpanm DBIx::BlackBox

perl -MCPAN -e shell
install DBIx::BlackBox