/ 
DBIx-Class-ResultSet-HashRef-1.002
River stage zero No dependents
/ DBIx::Class::ResultSet::HashRef

NAME

DBIx::Class::ResultSet::HashRef - Adds syntactic sugar to skip the fancy objects

SYNOPSIS

# in your resultsource class
__PACKAGE__->resultset_class( 'DBIx::Class::ResultSet::HashRef' );

# in your calling code
my $rs = $schema->resultset('User')->search( { } )->hashref_rs;
while (my $row = $rs->next) {
    print Dumper $row;
}

You can chain up every L<DBIx::Class::ResultSet> method to ->hashref_rs:

* ->hashref_rs->all (same as ->hashref_array)

* ->hashref_rs->first (same as ->hashref_first)

DESCRIPTION

This is a simple way to allow you to set result_class to DBIx::Class::ResultClass::HashRefInflator to skip the fancy objects.

INSTALLATION

perl Makefile.PL
make
make test
make install

METHODS

hashref_rs( )

Sets result_class to DBIx::Class::ResultClass::HashRefInflator and returns the resultset.

hashref_array( )

Calls ->hashref_rs->all and returns depending on the calling context an array or an reference to an array.

my $rs = $schema->resultset('User')->search( { } )->hashref_array;
print Dumper $rs;

my @rs = $schema->resultset('User')->search( { } )->hashref_array;
print Dumper @rs;

hashref_first( )

Returns the first row of the resultset inflated by DBIx::Class::ResultClass::HashRefInflator.

my $first_row = $schema->resultset('User')->search( { } )->hashref_first;
print Dumper $first_row

hashref_pk( )

Returns a hash or reference to hash, depending on the calling context. The keys of the hash are the primary keys of each row returned by "hashref_array( )":

{
	1 => {
	    'id'    => '1',
	    'login' => 'root'
	},
	2 => {
	    'id'    => '2',
	    'login' => 'toor'
	},
}

Example usage:

my $hashref_pk = $schema->resultset('User')->search( { } )->hashref_pk;
print Dumper $hashref_pk

AUTHOR

Johannes Plunien <plu@cpan.org>

CONTRIBUTORS

Robert Bohne <rbo@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2008 by Johannes Plunien

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Thanks to mst for his patience.

SEE ALSO