view release on metacpan or  search on metacpan

t/07_fixed_width.t  view on Meta::CPAN

$cap = IO::Capture::Stdout->new();
$cap->start();
$lre->generate_output();
$cap->stop();
chomp( @lines = $cap->read() );

is_deeply( [ @lines ], [ @expected ],
    "Got expected output after updating fixed-width records");


sub update_record {
    my $record = shift;
    my $template = 'A5A18A8A6AA8';
    my @rec  = unpack($template, $record);
    $rec[0] =~ s/^0+//;
    my ($acctno, %values, $result);
    $acctno = $rec[0];
    $values{$acctno} = [ @rec[1..$#rec] ];
    if ($revisions{$acctno}) {
        $values{$acctno} = $revisions{$acctno};
    }