# _get_records_all # get all records and pass the first to the display sub _get_records_all { my $self = shift; $self->{_iter} = InContact::cDBI::contact->retrieve_all(); $self->{_iter_cnt} = $self->{_iter}->count(); $self->{_iter_index} = 0; my $obj = $self->{_iter}->first; $self->{_record} = $obj->hashy; print Dumper $self->{_record}; return; } 1;