view release on metacpan or  search on metacpan

Log.pm  view on Meta::CPAN

        my $t = sprintf $fmt, $k, ((defined $b{$k}) ? $b{$k} : ""); 
        print $fh2 $t; 
    }
    for my $k (sort keys %$ar) { 
        my $t = sprintf $fmt, $k, $ar->{$k}; 
        print $fh2 $t; 
    }
    print $fh2 "# End at $b{end_time} $b{result}\n\n"; 
    undef $fh1;   # close breif  file hanlder
    undef $fh2;   # close detail file handler
    chmod 0777, $fn1, $fn2;
}

1;

=head1 CODING HISTORY

=over 4

=item * Version 0.10