projekt kivitendo

use List::Util qw(max);

sub ptab {

  my @rows = ref($_[0]) eq 'ARRAY' ? @{ $_[0] } : @_;

  return '<empty result set>' unless @rows;

  my @columns = sort keys %{ $rows[0] };

  my @widths  = map { max @{ $_ } } map { my $column = $_; [ length($column), map { length("" . ($_->{$column} // '')) } @rows ] } @columns;

  my @output  = (join ' | ', map { my $width = $widths[$_]; sprintf "\%-${width}s", $columns[$_] } (0..@columns - 1));

  push @output, join('-+-', map { '-' x $_ } @widths);

  push @output, map { my $row = $_; join(' | ', map { my $width = $widths[$_]; sprintf "\%-${width}s", $row->{ $columns[$_] } // '' } (0..@columns - 1) ) } @rows;

  return join("\n", @output);

}

sub pobj {

  my ($obj) = @_;

  return '<no object>' unless $obj;

  my $ref        =  ref $obj;

  $ref           =~ s/^SL::DB:://;

  my %primaries  =  map { ($_ => 1) } $obj->meta->primary_key;

  my @columns    =  map { "${_}:" . ($obj->$_ // 'UNDEF') } sort $obj->meta->primary_key;

  push @columns,    map { "${_}:" . ($obj->$_ // 'UNDEF') } grep { !$primaries{$_} } sort map { $_->{name} } $obj->meta->columns;

  return "<${ref} " . join(' ', @columns) . '>';

}

=head2 ptab C<@data>

Returns a tabular representation of C<@data>. C<@data> must be an

array or array reference containing hash references. Column widths are

calculated automatically.

Undefined values are represented by an empty column.

Example usage:

    ptab($dbh->selectall_arrayref("SELECT * FROM employee", { Slice => {} }));

=head2 pobj C<$obj>

Returns a textual representation of the L<Rose::DB> instance

C<$obj>. This includes the class name, then the primary key columns as

name/value pairs and then all other columns as name/value pairs.

Undefined values are represented by C<UNDEF>.

Example usage:

    pobj(SL::DB::Manager::Employee->find_by(login => 'demo'));