File Coverage

blib/lib/MRP/Text.pm

Criterion	Covered	Total	%
statement	6	24	25.0
branch	0	4	0.0
condition	0	9	0.0
subroutine	2	4	50.0
pod	2	2	100.0
total	10	43	23.2

package MRP::Text;

use strict;

use vars qw($VERSION);

$VERSION = 1.0;

sub pretyArray {
  my $thingy = shift;
  my $array;
  my $text;

  if(@_==1 && "$_[0]" =~ /ARRAY/) {
    $array = shift;
  } else {
    $array = [@_];
  }

  $text = join ', ', @$array;
  return '('.$text.')';
}

sub pretyHash {
  my $thingy = shift;
  my $leader = shift;
  my $hash;
  my $text = "";
  my ($key,$val);

  if(@_==1 && (ref $_[0] eq 'HASH' or "$_[0]" =~/HASH/)) {
    $hash = shift;
  } else {
    $hash = {@_};
  }

  while( ($key,$val) = each %$hash) {
    $text .= "$leader$key\t=> $val,\n";
  }

  return $text;
}

$VERSION;

__END__