File Coverage

lib/Array/Columnize.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	28	28	100.0

# Format an Array as an Array of String aligned in columns.
#
# == Summary
# Format a list into a single string with embedded newlines.
# On printing the string the columns are aligned.
#
#  See documentation for Columnize.columnize below.
#
# == License
#
# Columnize is copyright (C) 2011-2013 Rocky Bernstein
#
# All rights reserved.  You can redistribute and/or modify it under
# the same terms as Perl.
#
# Adapted from the routine of the same name in Ruby.

package Array::Columnize;
use strict;
use Exporter;
use warnings;
use lib '..';

use Array::Columnize::columnize;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
@ISA = qw/ Exporter /;
@EXPORT = qw(columnize);

# Add or remove  _01 when we want testing.
use version; $VERSION = '1.04';

unless (caller) {
    # Demo code
    print "This is version: $Array::Columnize::VERSION\n";
    print columnize([1,2,3,4], {displaywidth=>4}), "\n";
    my $data_ref = [80..120];
    print columnize($data_ref, {ljust => 0}) ;
    print columnize($data_ref, {ljust => 0, arrange_vertical => 0}) ;
    my @ary = qw(bibrons golden madascar leopard mourning suras tokay);
    print columnize(\@ary, {displaywidth => 18});
}

'Just another Perl module';
__END__