File Coverage

blib/lib/Crypt/Rijndael/PP/Debug.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	23	24	95.8

package Crypt::Rijndael::PP::Debug;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw( generate_printable_state );

our $VERSION = '0.2.1'; # VERSION
# ABSTRACT: Debugging and Formatting Methods

sub generate_printable_state {
    my $state = shift;

    my $state_as_string = "";

    for( my $row_index = 0; $row_index < 4; $row_index++ ) {
        for( my $column_index = 0; $column_index < 4; $column_index++ ) {
            my $state_byte = unpack("H2", $state->[$row_index][$column_index] );
            $state_as_string .= $state_byte . " ";
        }

        chop $state_as_string;
        $state_as_string .= "\n";
    }

    chop $state_as_string;

    return $state_as_string;
}

1;