NAME
DBIx::Class::Wrapper::Factory - A factory class that decorates a DBIx::Class::ResultSet.
SYNOPSIS
A model implementing the role DBIx::Class::Wrapper will automatically instantiate subclasses of this for any underlying DBIx::Class ResultSet.
To implement your own factory containing your business code for the underlying DBIC resulsets, you need to subclass this.
See DBIx::Class::Wrapper for a simple synopsis overview.
PROPERTIES
dbic_rs
The original DBIx::Class::ResultSet. Mandatory.
bm
The business model consuming the role DBIx::Class::Wrapper. Mandatory.
See DBIx::Class::Wrapper for more details.
build_dbic_rs
Builds the dbic ResultSet to be wrapped by this factory.
Defaults to the DBIx::Class Resultset with the same name as this factory.
You can override this in your business specific factories to build specific resultsets:
package My::Model::Factory::SomeName;
use Moose; extends qw/DBIx::Class::Wrapper::Factory/ ;
sub build_dbic_rs{
my ($self) = @_;
return $self->bm->dbic_schema->resultset('SomeOtherName');
# Or with some restriction:
return $self->bm->dbic_schema->resultset('SomeOtherName')
->search({ bla => ... });
}
new_result
Instantiate a new NOT INSERTED IN DB row and wrap it using the wrap method.
See "new_result" in DBIx::Class::ResultSet
create
Creates a new object in the DBIC Schema and return it wrapped using the wrapper method.
See "create" in DBIx::Class::ResultSet
find
Finds an object in the DBIC schema and returns it wrapped using the wrapper method.
See "find" in DBIx::Class::ResultSet
first
Equivalent to DBIC Resultset 'first' method.
See <DBIx::Class::ResultSet/first>
single
Equivalent to DBIx::Class::ResultSet::single. It's a bit more efficient than first()
.
update_or_create
Wraps around the original DBIC update_or_create method.
See "update_or_create" in DBIx::Class::ResultSet
find_or_create
Wraps around the original DBIC find_or_create method.
See "find_or_create" in DBIx::Class::ResultSet
find_or_new
Wraps around the original DBIC find_or_new method.
See "find_or_new" in DBIx::Class::ResultSet
pager
Shortcut to underlying dbic_rs pager.
See "pager" in DBIx::Class::ResultSet.
delete
Shortcut to "delete" in DBIx::Class::ResultSet
get_column
Shortcut to the get_column of the decorated dbic_rs
See "get_column" in DBIx::Class::ResultSet
search_rs
Alias for search
search
Search objects in the DBIC Schema and returns a new instance of this factory.
Note that unlike DBIx::Class::ResultSet, this search method will not return an Array of all results in an array context.
wrap
Wraps an DBIx::Class::Row in a business object. By default, it returns the Row itself.
Override that in your subclasses of factories if you need to wrap some business code around the DBIx::Class::Row:
sub wrap{
my ($self, $o) = @_;
return My::Model::O::SomeObject->new({ o => $o , ... });
}
all
Similar to DBIC Resultset all.
Usage:
my @objs = $this->all();
loop_through
Loop through all the elements of this factory whilst paging and execute the given code with the current retrieved object.
WARNINGS:
Make sure your resultset is ordered as it wouldn't make much sense to page through an unordered resultset.
In case other things are concurrently adding to this resultset, it is possible that the code you give will be called with the same objects twice.
If it's not the problem and if the rate at which objects are added is not too fast compared to the processing you are doing in the code, it should be just fine.
In other cases, you probably want to wrap this in a transaction to have a frozen view of the resultset.
Usage:
$this->loop_through(sub{ my $o = shift ; do something with o });
$this->loop_through(sub{...} , { limit => 1000 }); # Do only 1000 calls to sub.
$this->loop_through(sub{...} , { rows => 20 }); # Go by pages of 20 rows
fast_loop_through
Loops through all the objects of this factory in a Seeking fashion. If the primary key of the underlying resultset is orderable and indexed, this should run in linear time of the number of rows on the resultset.
Usage:
$this->fast_loop_through(sub{my ($o) = @_; ... } );
$this->fast_loop_through(sub{ .. } , { rows => 100 , limit => 1000 });
Options:
rows: Fetch this amount of rows at each query. Default to 100
limit: Return after looping through this amount of rows.
Important
You do not need to order the set, as this will order it by ascending primary key.
This means aggregation functions (such as group_by) will not work.
Incidentally, it means that if other processes are writing to this resultset, this method will play catch up on the resultset, so if the writing rate is higher than the reading rate, this might take a while to return.
If you want to avoid this, set the option 'order' to 'desc'.
Returns the number of rows looped through.
Prerequisites:
Must have:
- The underlying DBIx::Class::ResultSource has a primary key
- Each component of the primary key supports the operators '>' and '<'
- It is possible to order all the rows by this primary key alone.
Should have:
- This primary key is indexed and offers fast comparison access.
Inspired by http://use-the-index-luke.com/sql/partial-results/fetch-next-page
next
Returns next Business Object from this current DBIx::Resultset.
See "next" in DBIx::Class::ResultSet
count
Returns the number of objects in this ResultSet.