From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

KARMAN / CatalystX-CRUD-Model-RDBO-0.302 / lib / CatalystX / CRUD / Object / RDBO.pm 

            

              
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
110
111
112
113
114
115
116
117
118
119
120
—
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177

              
package CatalystX::CRUD::Object::RDBO;
use strict;
use warnings;
use base qw( CatalystX::CRUD::Object );
# help for serialize()
use Rose::DB::Object::Helpers qw( column_values_as_json );
use JSON;
our $VERSION = '0.302';
=head1 NAME
CatalystX::CRUD::Object::RDBO - Rose::DB::Object implementation of CatalystX::CRUD::Object
=head1 SYNOPSIS
 # fetch a row from MyApp::Model::Foo (which isa CatalystX::CRUD::Model)
 my $foo = $c->model('Foo')->fetch( id => 1234 );
 $foo->create;
 $foo->read;
 $foo->update;
 $foo->delete;
=head1 DESCRIPTION
CatalystX::CRUD::Object::RDBO implements the required CRUD methods
of a CatalystX::CRUD::Object subclass. It is intended for use
with CatalystX::CRUD::Model::RDBO.
=head1 METHODS
Only new or overridden methods are documented here.
=head2 load_speculative
Calls load( speculative => 1 ) on the internal delegate() value.
=cut
# convenience methods
sub load_speculative {
    shift->delegate->load( speculative => 1, @_ );
}
=head2 create
Calls delegate->save().
=cut
# required methods
sub create {
    shift->delegate->save(@_);
}
=head2 read
Calls delegate->load(). B<NOTE:> If you need a speculative load,
use load_speculative() instead.
=cut
sub read {
    # because of the abusive way RDBO handles load() internally,
    # must re-assign to delegate afterwards. This fixes esp the issue
    # of passing 'with' => 'rel' to load().
    my $cxcobj = shift;
    my $rdbo   = $cxcobj->delegate;
    $rdbo->load(@_);
    $cxcobj->{delegate} = $rdbo;
    return $cxcobj;
}
=head2 update
Calls delegate->save().
=cut
sub update {
    shift->delegate->save(@_);
}
=head2 delete
Calls delegate->delete(@_).
=cut
sub delete {
    shift->delegate->delete(@_);
}
=head2 is_new
Calls not_found() on the RDBO delegate.
=cut
sub is_new {
    shift->delegate->not_found();
}
=head2 serialize
Returns column/value pairs for RDBO delegate with all DateTime
et al objects serialized to strings.
=cut
sub serialize {
    return decode_json( column_values_as_json( shift->delegate ) );
}
1;
__END__
=head1 AUTHOR
Peter Karman, C<< <karman at cpan.org> >>
=head1 BUGS
Please report any bugs or feature requests to
C<bug-catalystx-crud-model-rdbo at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CatalystX-CRUD-Model-RDBO>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
    perldoc CatalystX::CRUD::Model::RDBO
You can also look for information at:
=over 4
=item * Mailing List
L<https://groups.google.com/forum/#!forum/catalystxcrud>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/CatalystX-CRUD-Model-RDBO>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/CatalystX-CRUD-Model-RDBO>
=item * RT: CPAN's request tracker
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=CatalystX-CRUD-Model-RDBO>
=item * Search CPAN
L<http://search.cpan.org/dist/CatalystX-CRUD-Model-RDBO>
=back
=head1 ACKNOWLEDGEMENTS
This module is based on Catalyst::Model::RDBO by the same author.
=head1 COPYRIGHT & LICENSE
Copyright 2007 Peter Karman, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut