DBIx::Class::Helpers(3pm) | User Contributed Perl Documentation | DBIx::Class::Helpers(3pm) |
DBIx::Class::Helpers - Simplify the common case stuff for DBIx::Class.
package MyApp::Schema::Result::Foo_Bar; __PACKAGE__->load_components(qw{Helper::JoinTable Core}); __PACKAGE__->join_table({ left_class => 'Foo', left_method => 'foo', right_class => 'Bar', right_method => 'bar', }); # define parent class package ParentSchema::Result::Bar; use strict; use warnings; use parent 'DBIx::Class'; __PACKAGE__->load_components('Core'); __PACKAGE__->table('Bar'); __PACKAGE__->add_columns(qw/ id foo_id /); __PACKAGE__->set_primary_key('id'); __PACKAGE__->belongs_to( foo => 'ParentSchema::Result::Foo', 'foo_id' ); # define subclass package MySchema::Result::Bar; use strict; use warnings; use parent 'ParentSchema::Result::Bar'; __PACKAGE__->load_components(qw{Helper::SubClass Core}); __PACKAGE__->subclass;
DBIx::Class::Helper::Row::JoinTable, DBIx::Class::Helper::Row::SubClass, DBIx::Class::Helpers::Util
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
This software is copyright (c) 2020 by Arthur Axel "fREW" Schmidt.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
2022-12-06 | perl v5.36.0 |