1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
package DBIx::Class::Helper::Row::RelationshipDWIM;
{
$DBIx::Class::Helper::Row::RelationshipDWIM::VERSION = '2.013002';
}
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__
=pod
=head1 NAME
DBIx::Class::Helper::Row::RelationshipDWIM - Type less for your relationships!
=head1 VERSION
version 2.013002
=head1 SYNOPSIS
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;
=head1 DESCRIPTION
This module prepends your C<default_result_namespace> to related objects if they
begin with C<::>. Simple but handy.
=head1 AUTHOR
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 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.
=cut
|
