File Coverage

blib/lib/App/diff2vba/Util.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	11	23	47.8

package App::diff2vba;
use v5.14;
use warnings;

use Exporter qw(import);
our @EXPORT = qw(split_string);

sub split_string {
    local $_ = shift;
    my $count = shift;
    my $len = int((length($_) + $count - 1) / $count);
    my @split;
    while (length) {
	push @split, substr($_, 0, $len, '');
    }
    @split == $count or die;
    @split;
}

1;