File Coverage

blib/lib/Math/MultiplicationTable.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	30	30	100.0

package Math::MultiplicationTable;

use 5.008008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Math::MultiplicationTable ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

our $VERSION = '0.01';

=item generate()

Generate 9 * 9 cells table as plain text.

=cut

=item generate($size)

Generate $size * $size size multiplication table as plain text.

=cut

sub generate
{
	my $size = (defined $_[0]) ? $_[0] : 9;
	my $ret = '';
	return undef if ($size < 0);
	return $ret if ($size == 0);

	my $figure = int(log($size ** 2) / log(10)) + 2;
	foreach my $r (1 .. $size){
		foreach my $c (1 .. $size){
			$ret .= sprintf "%".$figure."d", $r * $c;
		}
		$ret .= "\n";
	}

	return $ret;
}

1;
__END__