VERSION

version 1.23

SYNOPSIS

See DBIx::Class::Schema::KiokuDB.

package MyApp::DB::Result::Album;
use base qw(DBIx::Class);
__PACKAGE__>load_components(qw(Core KiokuDB));
__PACKAGE__->table('album');
__PACKAGE__->add_columns(
id => { data_type => "integer" },
title => { data_type => "varchar" },
# the foreign key for the KiokuDB object:
metadata => { data_type => "varchar" },
);
__PACKAGE__->set_primary_key('id');
# enable a KiokuDB rel on the column:
__PACKAGE__->kiokudb_column('metadata');

DESCRIPTION

This DBIx::Class component provides the code necessary for DBIx::Class::Row objects to refer to KiokuDB objects stored in KiokuDB::Backend::DBI.

CLASS METHODS

kiokudb_column $rel

Declares a relationship to any KiokuDB object.

In future versions adding relationships to different sub-collections will be possible as well.

METHODS

store

A convenience method that calls ``store'' in KiokuDB on all referenced KiokuDB objects, and then invokes "insert_or_update" on $self.

get_kiokudb_column $col

set_kiokudb_column $col, $obj

store_kiokudb_column $col, $obj

See DBIx::Class::Row.

OVERRIDDEN METHODS

new

Recognizes objects passed in as column values, much like standard relationships do.

insert

Also calls ``insert'' in KiokuDB on all referenced objects that are not in the KiokuDB storage.

update

Adds a check to ensure that all referenced KiokuDB objects are in storage.

AUTHOR

Yuval Kogman <[email protected]>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Yuval Kogman, Infinity Interactive.

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