← Index
NYTProf Performance Profile   « line view »
For starman worker -M FindBin --max-requests 50 --workers 2 --user=kohadev-koha --group kohadev-koha --pid /var/run/koha/kohadev/plack.pid --daemonize --access-log /var/log/koha/kohadev/plack.log --error-log /var/log/koha/kohadev/plack-error.log -E deployment --socket /var/run/koha/kohadev/plack.sock /etc/koha/sites/kohadev/plack.psgi
  Run on Fri Jan 8 14:31:06 2016
Reported on Fri Jan 8 14:33:28 2016

Filename/usr/share/perl5/DBIx/Class/InflateColumn.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
122112.81ms39.7msDBIx::Class::InflateColumn::::inflate_columnDBIx::Class::InflateColumn::inflate_column
11120µs30µsDBIx::Class::InflateColumn::::BEGIN@3DBIx::Class::InflateColumn::BEGIN@3
11110µs39µsDBIx::Class::InflateColumn::::BEGIN@7DBIx::Class::InflateColumn::BEGIN@7
1119µs16µsDBIx::Class::InflateColumn::::BEGIN@4DBIx::Class::InflateColumn::BEGIN@4
1119µs27.7msDBIx::Class::InflateColumn::::BEGIN@6DBIx::Class::InflateColumn::BEGIN@6
1118µs96µsDBIx::Class::InflateColumn::::BEGIN@8DBIx::Class::InflateColumn::BEGIN@8
0000s0sDBIx::Class::InflateColumn::::_deflated_columnDBIx::Class::InflateColumn::_deflated_column
0000s0sDBIx::Class::InflateColumn::::_inflated_columnDBIx::Class::InflateColumn::_inflated_column
0000s0sDBIx::Class::InflateColumn::::get_inflated_columnDBIx::Class::InflateColumn::get_inflated_column
0000s0sDBIx::Class::InflateColumn::::set_inflated_columnDBIx::Class::InflateColumn::set_inflated_column
0000s0sDBIx::Class::InflateColumn::::store_inflated_columnDBIx::Class::InflateColumn::store_inflated_column
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package DBIx::Class::InflateColumn;
2
3240µs
# spent 30µs (20+10) within DBIx::Class::InflateColumn::BEGIN@3 which was called: # once (20µs+10µs) by Class::C3::Componentised::ensure_class_loaded at line 3
use strict;
# spent 30µs making 1 call to DBIx::Class::InflateColumn::BEGIN@3 # spent 10µs making 1 call to strict::import
4222µs
# spent 16µs (9+6) within DBIx::Class::InflateColumn::BEGIN@4 which was called: # once (9µs+6µs) by Class::C3::Componentised::ensure_class_loaded at line 4
use warnings;
# spent 16µs making 1 call to DBIx::Class::InflateColumn::BEGIN@4 # spent 6µs making 1 call to warnings::import
5
6227.7ms
# spent 27.7ms (9µs+27.7) within DBIx::Class::InflateColumn::BEGIN@6 which was called: # once (9µs+27.7ms) by Class::C3::Componentised::ensure_class_loaded at line 6
use base 'DBIx::Class::Row';
# spent 27.7ms making 1 call to DBIx::Class::InflateColumn::BEGIN@6 # spent 27.7ms making 1 call to base::import, recursion: max depth 1, sum of overlapping time 27.7ms
7267µs
# spent 39µs (10+28) within DBIx::Class::InflateColumn::BEGIN@7 which was called: # once (10µs+28µs) by Class::C3::Componentised::ensure_class_loaded at line 7
use SQL::Abstract 'is_literal_value';
# spent 39µs making 1 call to DBIx::Class::InflateColumn::BEGIN@7 # spent 28µs making 1 call to Exporter::import
82184µs
# spent 96µs (8+88) within DBIx::Class::InflateColumn::BEGIN@8 which was called: # once (8µs+88µs) by Class::C3::Componentised::ensure_class_loaded at line 8
use namespace::clean;
# spent 96µs making 1 call to DBIx::Class::InflateColumn::BEGIN@8 # spent 88µs making 1 call to namespace::clean::import
9
10=head1 NAME
11
12DBIx::Class::InflateColumn - Automatically create references from column data
13
14=head1 SYNOPSIS
15
16 # In your table classes
17 __PACKAGE__->inflate_column('column_name', {
18 inflate => sub {
19 my ($raw_value_from_db, $result_object) = @_;
20 ...
21 },
22 deflate => sub {
23 my ($inflated_value_from_user, $result_object) = @_;
24 ...
25 },
26 });
27
28=head1 DESCRIPTION
29
30This component translates column data into references, i.e. "inflating"
31the column data. It also "deflates" references into an appropriate format
32for the database.
33
34It can be used, for example, to automatically convert to and from
35L<DateTime> objects for your date and time fields. There's a
36convenience component to actually do that though, try
37L<DBIx::Class::InflateColumn::DateTime>.
38
39It will handle all types of references except scalar references. It
40will not handle scalar values, these are ignored and thus passed
41through to L<SQL::Abstract>. This is to allow setting raw values to
42"just work". Scalar references are passed through to the database to
43deal with, to allow such settings as C< \'year + 1'> and C< \'DEFAULT' >
44to work.
45
46If you want to filter plain scalar values and replace them with
47something else, see L<DBIx::Class::FilterColumn>.
48
49=head1 METHODS
50
51=head2 inflate_column
52
53Instruct L<DBIx::Class> to inflate the given column.
54
55In addition to the column name, you must provide C<inflate> and
56C<deflate> methods. The C<inflate> method is called when you access
57the field, while the C<deflate> method is called when the field needs
58to used by the database.
59
60For example, if you have a table C<events> with a timestamp field
61named C<insert_time>, you could inflate the column in the
62corresponding table class using something like:
63
64 __PACKAGE__->inflate_column('insert_time', {
65 inflate => sub {
66 my ($insert_time_raw_value, $event_result_object) = @_;
67 DateTime->from_epoch( epoch => $insert_time_raw_value );
68 },
69 deflate => sub {
70 my ($insert_time_dt_object, $event_result_object) = @_;
71 $insert_time_dt_object->epoch;
72 },
73 });
74
75The coderefs you set for inflate and deflate are called with two parameters,
76the first is the value of the column to be inflated/deflated, the second is
77the result object itself.
78
79In this example, calls to an event's C<insert_time> accessor return a
80L<DateTime> object. This L<DateTime> object is later "deflated" back
81to the integer epoch representation when used in the database layer.
82For a much more thorough handling of the above example, please see
83L<DBIx::Class::DateTime::Epoch>
84
85=cut
86
87
# spent 39.7ms (2.81+36.9) within DBIx::Class::InflateColumn::inflate_column which was called 122 times, avg 325µs/call: # 122 times (2.81ms+36.9ms) by DBIx::Class::Relationship::Accessor::add_relationship_accessor at line 95 of DBIx/Class/Relationship/Accessor.pm, avg 325µs/call
sub inflate_column {
88 my ($self, $col, $attrs) = @_;
89
901222.28ms my $colinfo = $self->column_info($col);
# spent 2.28ms making 122 calls to DBIx::Class::ResultSourceProxy::column_info, avg 19µs/call
91
92 $self->throw_exception("InflateColumn can not be used on a column with a declared FilterColumn filter")
93 if defined $colinfo->{_filter_info} and $self->isa('DBIx::Class::FilterColumn');
94
951221.27ms $self->throw_exception("No such column $col to inflate")
# spent 1.27ms making 122 calls to DBIx::Class::ResultSourceProxy::has_column, avg 10µs/call
96 unless $self->has_column($col);
97 $self->throw_exception("inflate_column needs attr hashref")
98 unless ref $attrs eq 'HASH';
99 $colinfo->{_inflate_info} = $attrs;
100 my $acc = $colinfo->{accessor};
10112233.3ms $self->mk_group_accessors('inflated_column' => [ (defined $acc ? $acc : $col), $col]);
# spent 33.3ms making 122 calls to Class::Accessor::Grouped::mk_group_accessors, avg 273µs/call
102 return 1;
103}
104
105sub _inflated_column {
106 my ($self, $col, $value) = @_;
107
108 return $value if (
109 ! defined $value # NULL is NULL is NULL
110 or
111 is_literal_value($value) #that would be a not-yet-reloaded literal update
112 );
113
114 my $info = $self->result_source->column_info($col)
115 or $self->throw_exception("No column info for $col");
116
117 return $value unless exists $info->{_inflate_info};
118
119 return (
120 $info->{_inflate_info}{inflate}
121 ||
122 $self->throw_exception("No inflator found for '$col'")
123 )->($value, $self);
124}
125
126sub _deflated_column {
127 my ($self, $col, $value) = @_;
128
129 ## Deflate any refs except for literals, pass through plain values
130 return $value if (
131 ! length ref $value
132 or
133 is_literal_value($value)
134 );
135
136 my $info = $self->result_source->column_info($col) or
137 $self->throw_exception("No column info for $col");
138
139 return $value unless exists $info->{_inflate_info};
140
141 return (
142 $info->{_inflate_info}{deflate}
143 ||
144 $self->throw_exception("No deflator found for '$col'")
145 )->($value, $self);
146}
147
148=head2 get_inflated_column
149
150 my $val = $obj->get_inflated_column($col);
151
152Fetch a column value in its inflated state. This is directly
153analogous to L<DBIx::Class::Row/get_column> in that it only fetches a
154column already retrieved from the database, and then inflates it.
155Throws an exception if the column requested is not an inflated column.
156
157=cut
158
159sub get_inflated_column {
160 my ($self, $col) = @_;
161
162 $self->throw_exception("$col is not an inflated column")
163 unless exists $self->result_source->column_info($col)->{_inflate_info};
164
165 # we take care of keeping things in sync
166 return $self->{_inflated_column}{$col}
167 if exists $self->{_inflated_column}{$col};
168
169 my $val = $self->get_column($col);
170
171 return $self->{_inflated_column}{$col} = $self->_inflated_column($col, $val);
172}
173
174=head2 set_inflated_column
175
176 my $copy = $obj->set_inflated_column($col => $val);
177
178Sets a column value from an inflated value. This is directly
179analogous to L<DBIx::Class::Row/set_column>.
180
181=cut
182
183sub set_inflated_column {
184 my ($self, $col, $value) = @_;
185
186 # pass through deflated stuff
187 if (! length ref $value or is_literal_value($value)) {
188 $self->set_column($col, $value);
189 delete $self->{_inflated_column}{$col};
190 }
191 # need to call set_column with the deflate cycle so that
192 # relationship caches are nuked if any
193 # also does the compare-for-dirtyness and change tracking dance
194 else {
195 $self->set_column($col, $self->_deflated_column($col, $value));
196 $self->{_inflated_column}{$col} = $value;
197 }
198
199 return $value;
200}
201
202=head2 store_inflated_column
203
204 my $copy = $obj->store_inflated_column($col => $val);
205
206Sets a column value from an inflated value without marking the column
207as dirty. This is directly analogous to L<DBIx::Class::Row/store_column>.
208
209=cut
210
211sub store_inflated_column {
212 my ($self, $col, $value) = @_;
213
214 if (! length ref $value or is_literal_value($value)) {
215 delete $self->{_inflated_column}{$col};
216 $self->store_column($col => $value);
217 }
218 else {
219 delete $self->{_column_data}{$col};
220 $self->{_inflated_column}{$col} = $value;
221 }
222
223 return $value;
224}
225
226=head1 SEE ALSO
227
228=over 4
229
230=item L<DBIx::Class::Core> - This component is loaded as part of the
231 C<core> L<DBIx::Class> components; generally there is no need to
232 load it directly
233
234=back
235
236=head1 FURTHER QUESTIONS?
237
238Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
239
240=head1 COPYRIGHT AND LICENSE
241
242This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
243by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
244redistribute it and/or modify it under the same terms as the
245L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
246
247=cut
248
249144µs1;
# spent 44µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__
Report produced by the NYTProf 6.02 Perl profiler, developed by Tim Bunce and Adam Kaplan.