[Dbix-class] get_column auto-inflate

[Christopher H. Laco]

Todd Rinaldo wrote:
> get_inflated_columns doesn't return a hash like get_columns does. I'm loo=
king for get_columns with an inflate option.
> =

> thanks,

Huh? get_columns returns a list just like get_inflated
_columns does.

I believe the pod is wrong.


sub get_inflated_columns {
   my $self =3D shift;
   return map {
     my $accessor =3D $self->column_info($_)->{'accessor'} || $_;
     ($_ =3D> $self->$accessor);
   } $self->columns;
}


sub get_columns {
   my $self =3D shift;
   if (exists $self->{_inflated_column}) {
     foreach my $col (keys %{$self->{_inflated_column}}) {
       $self->store_column($col, $self->_deflated_column($col, =

$self->{_inflated_column}{$col}))
         unless exists $self->{_column_data}{$col};
     }
   }
   return %{$self->{_column_data}};
}

sub get_dirty_columns {
   my $self =3D shift;
   return map { $_ =3D> $self->{_column_data}{$_} }
            keys %{$self->{_dirty_columns}};
}


-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 187 bytes
Desc: OpenPGP digital signature
Url : http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20080721/61=
e99727/signature.pgp