1 package DBIx::Class::InflateColumn;
7 my ($self, $col, $attrs) = @_;
8 die "No such column $col to inflate" unless exists $self->_columns->{$col};
9 die "inflate_column needs attr hashref" unless ref $attrs eq 'HASH';
10 $self->_columns->{$col}{_inflate_info} = $attrs;
11 $self->mk_group_accessors('inflated_column' => $col);
15 sub _inflate_column_value {
16 my ($self, $col, $value) = @_;
17 return $value unless exists $self->_columns->{$col}{_inflate_info}{inflate};
18 my $inflate = $self->_columns->{$col}{_inflate_info}{inflate};
19 return $inflate->($value, $self);
22 sub _deflate_column_value {
23 my ($self, $col, $value) = @_;
24 return $value unless ref $value; # If it's not an object, don't touch it
25 return $value unless exists $self->_columns->{$col}{_inflate_info}{deflate};
26 my $deflate = $self->_columns->{$col}{_inflate_info}{deflate};
27 return $deflate->($value, $self);
30 sub get_inflated_column {
31 my ($self, $col) = @_;
32 $self->throw("$col is not an inflated column") unless
33 exists $self->_columns->{$col}{_inflate_info};
35 #warn join(', ', %{$self->{_column_data}});
36 return $self->{_inflated_column}{$col}
37 if exists $self->{_inflated_column}{$col};
38 #my ($pri) = (keys %{$self->_relationships->{$rel}{class}->_primaries})[0];
39 return $self->{_inflated_column}{$col} =
40 $self->_inflate_column_value($col, $self->get_column($col));
43 sub set_inflated_column {
44 my ($self, $col, @rest) = @_;
45 my $ret = $self->store_inflated_column($col, @rest);
46 $self->{_dirty_columns}{$col} = 1;
50 sub store_inflated_column {
51 my ($self, $col, $obj) = @_;
53 delete $self->{_inflated_column}{$col};
54 return $self->store_column($col, $obj);
56 $self->{_inflated_column}{$col} = $obj;
57 #warn "Storing $obj: ".($obj->_ident_values)[0];
58 $self->store_column($col, $self->_deflate_column_value($col, $obj));
63 my ($class, $attrs, @rest) = @_;
66 foreach my $key (keys %$attrs) {
67 if (exists $class->_columns->{$key}{_inflate_info}) {
68 $deflated{$key} = $class->_deflate_column_value($key,
69 delete $attrs->{$key});
72 return $class->NEXT::ACTUAL::new({ %$attrs, %deflated }, @rest);
76 my ($self, $attrs, $key, $value) = @_;
77 if (exists $self->_columns->{$key}) {
78 $value = $self->_deflate_column_value($key, $value);
80 return $self->NEXT::ACTUAL::_cond_value($attrs, $key, $value);