|
Lines 318-325
Returns an unblessed representation of object.
Link Here
|
| 318 |
|
318 |
|
| 319 |
sub unblessed { |
319 |
sub unblessed { |
| 320 |
my ($self) = @_; |
320 |
my ($self) = @_; |
| 321 |
|
321 |
my %res = $self->_result->get_columns; |
| 322 |
return { $self->_result->get_columns }; |
322 |
for my $k (keys %res) { |
|
|
323 |
my $reftype = ref $res{$k}; |
| 324 |
# overwrite current object-vaule with it's unblessed value |
| 325 |
if( $reftype eq 'DateTime' ) { |
| 326 |
$res{$k} = "$res{$k}"; |
| 327 |
} elsif( $reftype ne '' ) { |
| 328 |
warn "Don't know how to unbless ref '$reftype'"; |
| 329 |
} |
| 330 |
} |
| 331 |
return \%res; |
| 323 |
} |
332 |
} |
| 324 |
|
333 |
|
| 325 |
=head3 $object->get_from_storage; |
334 |
=head3 $object->get_from_storage; |
| 326 |
- |
|
|