DBIx::Class::Helper::Row::RelationshipDWIM - Type less for your relationships!

DBIx-Class-Helpers documentation Contained in the DBIx-Class-Helpers distribution.

Index

Code Index:

NAME

Top

DBIx::Class::Helper::Row::RelationshipDWIM - Type less for your relationships!

VERSION

Top

version 2.007000

SYNOPSIS

Top

Base clase:

 package MyApp::Schema::Result;

 use parent 'DBIx::Class::Core';

 __PACKAGE__->load_components('Helper::Row::RelationshipDWIM');

 sub default_result_namespace { 'MyApp::Schema::Result' }

 1;

Result class:

 package MyApp::Schema::Result::Foo;

 use parent 'MyApp::Schema::Result';

 # Define various class bits here

 # succint relationship definition yeah!

 __PACKAGE__->has_many(friends => '::Person', 'foo_id');

 # or with DBIx::Class::Candy:
 has_many friends => '::Person', 'foo_id';

 1;

DESCRIPTION

Top

This module prepends your default_result_namespace to related objects if they begin with ::. Simple but handy.

AUTHOR

Top

Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2011 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.

DBIx-Class-Helpers documentation Contained in the DBIx-Class-Helpers distribution. 
package DBIx::Class::Helper::Row::RelationshipDWIM;
BEGIN {
  $DBIx::Class::Helper::Row::RelationshipDWIM::VERSION = '2.007000';
}

use strict;
use warnings;

# ABSTRACT: Type less for your relationships!

sub default_result_namespace {
   die 'you forgot to set your default_result_namespace'
}

sub belongs_to {
  my ( $self, @args ) = @_;

  $args[1] =~ s/^::/$self->default_result_namespace . '::'/e;

  $self->next::method(@args);
}

sub has_many {
  my ( $self, @args ) = @_;

  $args[1] =~ s/^::/$self->default_result_namespace . '::'/e;

  $self->next::method(@args);
}

sub might_have {
  my ( $self, @args ) = @_;

  $args[1] =~ s/^::/$self->default_result_namespace . '::'/e;

  $self->next::method(@args);
}

sub has_one {
  my ( $self, @args ) = @_;

  $args[1] =~ s/^::/$self->default_result_namespace . '::'/e;

  $self->next::method(@args);
}

1;


__END__